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CHAPTER  1 
INTRODUCTION 


Accretion  disks  form  an  important  class  of  astrophysical  objects,  occurring  on  many 
scales  in  a  variety  of  contexts.  In  quasars  and  AGNs  they  are  believed  to  be  the  central 
driving  engine  responsible  for  the  extreme  luminosities  generated  by  these  objects.  In 
a  more  common  manifestation,  they  are  believed  to  be  a  natural  product  of  the  star 
formation  process  (Shu  et  ai,  1987),  and  to  be  the  progenitors  of  potential  planetary 
systems.  As  a  structure  that  preprocesses  infalling  material  before  it  accretes  onto  the 
central  protostar,  the  accretion  disk  is  referred  to  as  a  protostellar  disk.  Later,  when  mass 
accretion  has  virtually  ended  and  the  disk  mass  is  small  compared  to  the  young  star  at  its 
center,  it  is  designated  as  a  protoplanetary  disk.  This  work,  though  it  addresses  accretion 
disks  in  general,  is  focused  on  accretion  disks  with  the  general  characteristics  of  massive 
protostellar  disks:  the  self-gravity  of  the  disk  will  be  important,  and  the  central  object, 
representing  the  protostar,  will  be  small  compared  with  the  spatial  dimensions  of  the  disk. 

Though  the  existence  of  protostellar  disks  was  first  theoretically  argued  as  a  natural 
consequence  of  the  conservation  of  angular  momentum,  the  observational  evidence  for 
these  objects  has  greatly  improved.  Initially  the  observational  evidence  was  indirect. 
Infrared  (IR)  excesses  were  observed  around  young  stellar  objects,  particularly  T  Tauri 
stars,  though  the  star  itself  was  unobscured  by  the  material  radiating  at  lower  temperatures 
(Rydgren  &  Zak,  1987).  Ultraviolet  (UV)  emission  lines  are  associated  with  these  objects 
as  well.   Other  indirect  evidence  is  the  angular  momentum  regulation  of  T  Tauri  stars 
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with  IR  excesses  (Edwards  et  ai,  1993).  The  most  plausible,  and  simple,  of  explanations 
for  these  observations  was  that  the  material  responsible  for  the  excess  IR  emissions  was 
in  a  flat,  disk-like  structure,  and  that  material  accreting  from  the  disk  onto  the  star  was 
producing  the  UV  emission.  Many  of  these  inferred  disks  have  little  mass,  and  are  still 
thought  to  be  examples  of  disks  at  a  later  stage  in  evolution. 

More  massive  disks  were  inferred  from  young  stellar  objects  with  much  larger  IR 
excesses  (Hillenbrand  et  al.,  1992).  The  "flat-top"  IR  spectra  of  these  objects  were 
initially  explained  by  massive  disks  that  were  generating  their  own  luminosity  through 
viscous  processes  (Adams  et  al.,  1988).  However,  more  recently  the  spectra  of  these 
objects  were  shown  as  more  probably  resulting  from  a  dusty,  infalling  envelope  (Whitney 
&  Hartmann,  1993;  Hartmann,  1993).  Hence,  to  this  point,  the  indirect  evidence  for 
large  gaseous  disks  around  young  stars  has  provided  enticing,  but  not  decisive,  evidence. 
However,  with  new  and  improved  instrumentation,  such  as  the  JCMT-CSO  submillimeter 
interferometer  and  the  serviced  Hubble  Space  Telescope,  direct  evidence  of  gaseous  disks 
around  young  stellar  objects  has  been  observed.  (Koemer  et  al.,  1993;  Lay  et  al.,  1993) 

Numerically  many  have  shown,  as  per  expectations  (Lin  &  Pringle,  1990),  that 
massive  disks  do  form  from  a  collapsing  cloud  possessing  angular  momentum  equivalent 
to  that  observed  in  molecular  cloud  cores  (Bodenheimer  et  al.,  1990;  York  et  al.,  1993; 
York  et  al.,  1995).  In  such  a  self-gravitating  disk,  nonaxisymmetric  modes  play  a  crucial 
role,  as  they  effectively  transport  angular  momentum,  thereby  driving  the  evolution  of  the 
disk.  In  addition,  ubiquitous  shear  viscous  forces  are  an  important  transport  mechanism  in 
a  gaseous  disk;  nonaxisymmetric  modes  may  dominate  when  present,  but  viscous  forces 
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will  always  be  present  to  some  degree.  In  general  the  resulting  angular  momentum 
transport  will  be  outwards,  causing  the  disk  to  become  more  extended,  while  the  bulk 
of  the  mass  flows  inward,  resulting  in  accretion  onto  the  central  object  (Lynden-Bell  & 
Pringle,  1974).  The  strength  of  the  viscous  force  has  been  inferred  from  the  lifetimes  of 
the  disks  themselves,  and  is  often  termed  as  anomalous  viscosity,  as  the  strength  of  the 
viscous  forces  are  much  stronger  than  can  be  explained  by  the  kinetic  molecular  viscosity 
of  the  gas  itself.  The  most  common  type  of  viscosity  that  has  been  suggested  is  turbulent 
viscosity,  though  several  mechanisms  for  inducing  the  turbulence  have  been  suggested. 
These  mechanisms  include  convection  induced  by  thermal  gradients,  which  requires  an 
optically  thick  disk,  and  a  magneto-rotational  instability,  which  requires  the  presence  of 
a  weak  magnetic  field  (Balbus  &  Hawley,  1991;  Hawley  &  Balbus,  1991).  In  this  work 
I  do  not  attempt  to  shed  light  on  the  mechanism  responsible  for  the  turbulence,  but  will 
nonetheless  assume  that  turbulence  is  responsible  for  the  shear  viscosity  in  the  accretion 
disk.  These  two  mechanisms  of  angular  momentum  transfer,  the  global  nonaxisymmetric 
modes  and  the  local  viscous  processes,  do  not  act  independently,  but  affect  one  another. 

The  theory  of  accretion  disks,  motivated  in  large  degree  by  their  occurrence  in  some 
binary  systems,  particularly  cataclysmic  variables,  has  been  most  fully  developed  for 
the  thin  Keplerian  disk  (Pringle,  1981).  In  this  regime  the  self-gravity  of  the  disk  is 
neglected,  and  only  pressure  supports  the  vertical  structure.  In  contrast,  the  theory  of 
self-gravitating  accretion  disks  is  less  developed.  This  is  in  part  due  to  the  nonlinearity 
of  the  problem,  which  dictates  that  numerical  studies  are  necessary  to  understand  these 
disks.     Early  numerical  work  on  self-gravitating  accretion  disks  began  with  N-body 
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modeling  (Cassen  ^r  a/.  1981;  Tomley  e?  a/.,  1991).  Papaloizou  and  Savonije  (1991) 
analytically  investigate  the  instabilities  that  exist  in  two-dimensional  self-gravitating 
disks,  and  numerically  follow  the  evolution  of  these  unstable  modes.  Their  numerical 
method  was  to  solve  the  hydrodynamic  equations  on  a  polar  grid,  which  necessitated 
the  unphysical  assumption  of  rigid  inner  and  outer  boundary  conditions.  They  confirm 
the  importance  of  the  nonaxisymmetric  modes  in  redistributing  the  mass  of  the  bounded 
disk,  though  the  subsequent  evolution  they  observe  characterizes  real  disks  only  in  a  broad 
sense.  In  addition,  their  numerical  code  has  an  indeterminate  amount  of  shear  viscosity, 
which  also  contributes  to  the  angular  momentum  transport  and  mass  redistribution  that 
they  observe  in  their  models. 

Only  recently  have  self-gravitating  three-dimensional  disks  been  investigated  through 
numerical  simulation.  The  stability  of  three-dimensional  tori  has  been  investigated 
both  analytically  and  numerically  (Papaloizou  &  Pringle,  1984;  Papaloizou  &  Pringle, 
1985;  Zurek  &  Benz,  1986;  Tohline  &  Woodward,  1992).  Most  recently  Laughlin  and 
Bodenheimer  (1994)  have  investigated  the  initial  evolution  of  a  disk  that  is  formed  from 
a  previous  calculation  of  a  collapsing  gas  cloud.  In  this  later  work  ring  modes  that 
had  formed  in  a  two  dimensional  collapse  calculation  were  shown  to  be  unstable  in  a 
three-dimensional  hydrodynamic  simulation. 

In  this  work  I  extend  the  numerical  work  of  Papaloizou  and  Savonije  (1991)  by 
providing  a  model  that  more  closely  resembles  that  of  an  astrophysical  accretion  disk, 
but  that  is  also  restricted  to  two  dimensions.  In  particular,  the  hydrodynamic  evolution 
of  the  disk  is  followed  with  a  smoothed  particle  hydrodynamics  (SPH)  code,  which 
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approximates  a  gas  with  a  finite  number  of  particles  (Benz,  1990;  Monaghan,  1992). 
The  evolution  in  phase  space  of  these  particles  is  determined  by  the  Lagrangian  form 
of  the  hydrodynamic  equations.  As  this  method  is  not  restricted  to  a  fixed  grid  with 
rigid  boundaries,  the  disk  is  allowed  to  expand  naturally  in  radius,  and  an  inner  boundary 
condition  allows  accretion  onto  the  central  gravitating  object.  For  the  sake  of  continuity 
with  Papaloizou  and  Savonije  (1991),  the  disks  are  initially  given  an  exponential  density 
profile,  though  unlike  them  the  disks  are  perturbed  by  introducing  noise  in  the  density 
profile.  In  this  way  all  unstable  modes  will  be  excited.  The  primary  disk  parameters 
which  are  varied  are  the  star  to  disk  mass  ratio,  the  ratio  of  specific  heats,  and  the  effective 
shear  viscosity  of  the  disks.  Like  Papaloizou  and  Savonije  (1991),  a  polytropic  equation 
of  state  is  used  to  describe  the  gas.  In  particular,  the  effect  of  the  shear  viscosity  on  the 
evolution  of  self-gravitating  disks  is  investigated. 

The  following  chapter  describes  the  numerical  method  employed  to  model  accretion 
disks  and  its  implementation  in  a  FORTRAN  code  named  T2DSPH.  A  listing  of  the 
code  itself  is  provided  in  Appendix  1.  Tests  of  the  code  are  also  described,  including 
an  evaluation  of  the  effective  shear  viscosity  that  is  present.  Chapter  3  gives  the  details 
of  the  initialization  of  the  models  that  are  evolved,  an  important  and  nontrivial  aspect 
of  SPH.  In  Chapter  4  the  initial  parameters  of  the  accretion  disk  models  are  first  briefly 
described,  followed  by  a  presentation  of  the  results  of  the  modeling.  The  evolution  of  the 
nonaxisymmetric  modes  and  the  mass  accretion  observed  in  the  models  are  discussed. 
Chapter  5  addresses  the  formation  of  satellites  that  occur  in  some  of  the  models,  and 
Chapter  6  summarizes  the  results  and  speculates  on  their  significance. 


CHAPTER  2 
METHODS 


Development  of  the  Hydrodynamic  Code 

In  this  chapter  the  development  of  the  numerical  hydrodynamic  code,  named 
T2DSPH,  is  described.  A  listing  of  the  code  is  given  in  Appendix  A,  and  an  algo- 
rithm of  the  code  is  given  in  Appendix  B.  Test  simulations  are  also  described,  including 
the  evaluation  of  the  effective  shear  viscosity  present  in  the  method.  In  addition,  methods 
for  analysing  the  disks  are  discussed  in  the  last  section. 

N-body  Seed  Code 

The  code  developed  to  evolve  accretion  disks  is  itself  evolved  from  a  version 
of  Hemquist's  N-body  code  called  TREECOD  (1987).  This  code  uses  a  method  of 
calculating  the  gravitational  forces  on  a  system  of  particles,  due  to  the  collective  influence 
of  the  entire  system  of  particles,  using  a  method  termed  the  hierarchical  tree  method.  At 
any  particular  time  a  system  of  N  particles  is  spatially  described,  in  Cartesian  coordinates, 
by  a  set  of  cells  hierarchically  organized.  The  root  cell  encompasses  the  entire  system; 
then  succeeding  levels  of  subcells  are  created.  In  two  dimensions  each  cell  will  have  four 
subcells,  while  in  three  dimensions  each  cell  has  eight  subcells.  This  is  accomplished 
by  simply  dividing  a  cell  in  half  in  each  dimension  (see  Figure  2-1).  The  number  of 
particles  in  each  cell  is  found,  and  successive  levels  of  cells  are  created  until  subcells 
have  either  one  or  no  particles  in  it.  Cells  with  a  single  particle  can  be  considered  the 
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leaves  of  the  tree.  The  spatial  aspect  of  the  tree  is  expressed  by  allocating  to  memory  the 
position  and  dimension  of  each  cell.  Hence,  the  tree  structure  completely  describes  the 
spatial  structure  of  a  system  of  particles.  Further,  by  recording  for  each  cell  the  pointer 
to  its  parent  cell,  this  tree  may  be  ascended  or  descended. 
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Figure  2-1:  Illustration  of  a  two-dimensional  hierarchical  tree  cell  strucUire 
with  17  particles.  There  are  two  levels  of  subcells  below  the  root  cell. 


Moving  from  leaves  to  root,  the  mass  and  the  center  of  mass  of  each  cell  is  quickly 
determined;  in  describing  the  spatial  distribution  of  a  system  of  A^  massive  particles,  the 
mass  distribution  of  the  system  is  also  described.  This  hierarchical  tree  structure  can 
now  be  utilized  to  calculate  the  gravitational  forces  on  any  single  particle,  and  allows  the 
implementation  of  an  advantageous  approximation:  the  number  of  gravitation  terms  is 
made  significantly  less  than  the  A^-1  terms  a  direct  sum  over  all  the  other  particles  would 
yield,  by  treating  cells  as  gravitating  particles.  In  other  words,  a  single  gravitational  term 
due  to  a  given  cell,  its  mass  taken  to  be  at  the  position  of  its  center  of  mass,  is  used  to 
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represent  the  collective  gravitational  influence  of  all  the  particles  within  the  cell.  Using 
this  approach,  the  gravitational  force  of  a  system  of  N  particles  on  one  of  its  members 
can  be  approximated  with  a  sum  of  Nt  terms  due  to  a  set  of  A^t  cells,  where  M  «  N. 

The  choice  of  cells  used  in  the  gravitational  force  calculation  will  in  general  be 
different  for  each  particle,  and  the  choice  of  which  cells  to  use  will  determine  the  accuracy 
of  the  approximation.  To  determine  the  set  of  cells  used  for  a  given  particle,  the  tree  is 
descended  from  root  to  leaves,  with  the  descent  continuing  to  the  next  level  of  subcells 
until  the  cell  subtends  an  angle,  as  "viewed"  from  at  the  particle,  which  is  less  than 
a  specified  tolerance  angle,  0.   In  effect  this  method  will  treat  the  influence  of  nearby 
neighbors  as  a  direct  sum,  but  simplify  the  influence  of  particles  at  a  distance  by  grouping 
them  into  larger  cells.  This  approximation  is  then  based  on  the  philosophy  that  the  local 
gravitational  field  is  not  sensitive  to  the  detailed  spatial  distribution  of  particles  at  a 
distance.    The  accuracy  of  the  approximation  is  increased  further  by  including  higher 
order  terms  in  a  multipole  expansion  of  the  mass  distribution  within  the  cells.  Taking 
the  mass  to  be  at  the  center  of  mass,  as  described  above,  we  already  have  the  monopole 
expansion  term.  The  next  higher  order  correction  term  is  the  quadropole  term;  since  the 
center  of  mass  is  used  as  the  expansion  center  the  dipole  term  is  zero. 

Hemquist  has  found  that  for  a  system  with  4096  particles  that  a  tolerance  angle  of 
9  <  0.8  radians  gives  a  relative  error  in  the  /th  component  of  the  acceleration,  A{6ai)/di, 
of  less  than  1  %,  where  he  defines  the  mean  absolute  deviation  from  the  mean  error, 

1    ^ 
^(<5««)  =  ^X!  I'^^'J  ~  "^^'l'  (2-1) 

1 
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and  the  absolute  average  acceleration, 


^.=4Eki 


irect 


N 
1 


(2.2) 


He  define  the  mean  error  as 


1    -^ 
6a,  =  ^  XI  '^"'-"  (2.3) 

1 

where  6a,j  =  a^^^  -  afj^^^'  is  the  difference,  in  the  /th  component  of  the  acceleration, 
as  calculated  by  the  tree  hierarchical  and  direct  summation  methods  for  particle  j.  This 
was  measured  by  Hemquist  (1987)  for  a  Plummer  sphere,  which  has  a  density  profile  of 

where  M  is  the  mass  of  the  system  and  tq  is  the  scale  length.  For  a  typical  two- 
dimensional  exponential  disk,  I  measured  an  average  relative  error  in  the  accelerations, 
defined  as 

1     ^   I 

3=1 


(2.5) 


For  both  an  axisymmetric  and  a  nonaxisymmetric  disk,  with  a  tolerance  angle  9  =  0.8, 
I  found  the  average  relative  error  to  be  of  the  order  of  1%. 

The  computational  time  required  to  sample  the  gravitational  force  field  of  an  N-body 
system  at  A^  points  is  proportional  to  the  number  of  gravitational  terms  to  be  calculated. 
Therefore  the  computational  time  of  the  direct  sum  method  is  of  the  order  of  A^^,  whereas 
Hemquist  finds  that  the  tree  hierarchical  system  is  of  the  order  of  Mog(AO.  Models  of 
accretion  disks  presented  in  this  work  employ  approximately  5000  to  10000  particles; 
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for  these  numbers  of  particles  the  increase  in  efficiency,  as  compared  to  using  a  direct 
summation  method,  is  over  a  thousand  fold.  Nevertheless,  there  are  other  methods 
for  estimating  the  gravitational  field  of  an  N-body  system  that  are  more  computationally 
efficient,  such  as  grid  methods  that  use  fast  Fourier  techniques  to  evaluate  the  gravitational 
field  on  a  set  of  grid  points.  The  gravitational  force  upon  a  single  particle  is  then 
interpolated  from  the  nearest  points.  While  such  methods  are  faster,  the  tree  hierarchical 
method  possesses  several  attractive  advantages.  Grid  methods  are  limited  in  resolution 
to  the  grid  size,  whereas  the  tree  method's  local  resolution  is  limited  by  the  local  particle 
distribution  itself,  or  the  gravitational  softening  parameter,  since  its  approximation  is  only 
applied  to  particles  at  a  distance.  In  addition,  tree  methods  are  not  limited  to  the  size  or 
geometry  of  a  grid,  as  the  root  cell  is  resized  at  every  step  and  empty  cells  do  not  take  up 
memory.  Hence  tree  hierarchical  methods  conserve  mass  exactly.  These  characteristics 
make  tree  methods  ideal  for  modeling  violent  encounters,  as  well  as  models  that  have 
a  broad  range  in  particle  densities. 

SPH 

Using  this  N-body  code  as  a  skeleton,  a  two-dimensional  hydrodynamic  code  was 
developed,  called  T2DSPH  (Appendix  A).  The  numerical  hydrodynamic  method  chosen 
to  model  accretion  disks  is  known  as  smoothed  particle  hydrodynamics  (SPH),  and  in 
developing  the  code  I  followed  much  of  the  guidance  given  by  Hemquist  and  Katz's 
own  combination  of  SPH  and  the  tree  hierarchical  method  (1989).  A  three-dimensional 
version  of  this  hydrodynamics  code  was  then  developed  and  dubbed  T3DSPH. 
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In  essence,  "SPH  is  an  interpolation  method  that  allows  any  [continuous]  function  to 
be  expressed  in  terms  of  its  value  at  a  set  of  disordered  points  -  the  particles,"  (Monaghan 
1992).  A  finite  number  of  particles  is  used  to  describe  the  density  and  bulk  velocity  field 
of  a  fluid;  hydrodynamical  quantities  needed  to  calculate  the  acceleration  at  the  points 
are  estimated;  and  the  accelerations  are  then  applied  to  the  particles  using  an  appropriate 
integrator.  SPH,  then,  is  a  Lagrangian  technique  of  solving  the  hydrodynamical  equations, 
employing  a  finite  number  of  particles  to  approximate  the  fluid.  A  great  advantage  of  such 
a  method  is  that  it  is  quite  general,  being  easily  amendable  to  any  choice  of  equation 
of  state.    Also,  a  Lagrangian  approach  has  an  advantage  over  an  Eulerian  technique, 
which  must  employ  a  grid,  in  that  no  symmetry  is  imposed  or  assumed,  and  further,  the 
simulation  is  not  confined  to  a  box  of  finite  size.  Reviews  of  this  technique,  which  has 
been  popular  in  recent  years  to  model  a  variety  of  astrophysical  problems,  are  provided  by 
Monaghan  (1992)  and  Benz  (1990).  The  following  discussion  of  the  mathematical  basis 
of  SPH  follows  the  discussion  given  both  in  Benz  (1990),  and  Hemquist  and  Katz  (1989). 
In  SPH,  quantities  are  estimated  using  the  smoothed  estimate, 

{fir))  =  lf{r')W{r-r\h)dr',  (2.6) 

where  M^  is  a  smoothing  kernel  and  h  a  smoothing  length.  The  kernel  W  is  spherically 
symmetric  and  normalized: 

JW{r,h)dr=l.  (2.7) 

If  the  kernel  H^  is  a  function  strongly  peaked  about  r  =  0  then  the  estimate  (/)  can  be 
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written  as  a  Taylor  expansion: 

(/(r))  =  /(r)  +  c(VV)/^-'  +  0(/i3),  (2.8) 

where  the  coefficient  c  =  J u-h^W{u)du,  {u  =  |r  -  r'\/h)  ,  is  independent  of  h.  The 
term  proportional  to  h  has  vanished  because  W  is  an  even  function  in  r.  Hence  it  is  said 
that  the  smoothed  estimate  of  the  function  /  is  second  order  accurate  in  h.  If  the  quantity 
/  is  known  on  a  finite  set  of  points  described  by  a  point  distribution, 

n(r)  =  J]]^(r-rj),  (2.9) 

then  the  integral  expression  for  the  estimate  (/)  (equation  2.3)  can  be  written  as  a  sum: 


using  the  relation 


A{r)        {A{r))  , 


I  have  introduced  the  abbreviation  W,j  =  H^(|r,  -  r_,|,/i),  and  written  (iij)  in  the  form 
p{rj)/mj,  where  m_,  is  the  particle  mass  and  p{rj)  is  the  density  at  the  particle  j.  Using 
equation  (2.7),  the  density  is  estimated  using 


N 


/'(rj)  =  ^m,W^,j.  (2.12) 


J 


Because  of  the  form  of  the  estimate  [equation  (2.7)],  it  is  most  convenient  to  estimate 
quantities  with  the  general  form  pA: 


N 


{pA)i  =  Y,^jAj^tj-  (2.13) 


3 


''^'''^  =  sh?< 
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This  convention  is  considered  a  "golden  rule  of  SPH"  implementation  by  Monaghan 
(1992). 

Various  smoothing  kernels  can  be  used;  in  this  work  the  spherically  symmetric  kernel 

'l-6u~  +  6u\     if0<«<l/2 

2(l-^i)^  ifl/2<u<l  (2.14) 

,  0,  otherwise, 

is  used,  where  u  -  r/h.  This  kernel  is  a  fourth  order  basis  spline,  normalized  for  three 
dimensions.  In  two  dimensions  normalization  yields  the  leading  factor  of  l0/7nh'-.  I 
should  also  note  that  the  traditional  way  of  writing  the  above  kernel  is  with  h  —*  2h, 
so  that  W  is  nonzero  for  r  <  2h  rather  than  h,  but  the  above  form  is  more  convenient 
numerically.  The  kernel  above  is  the  one  most  widely  used  in  the  SPH  community,  and 
has  the  advantage  that  it  defines  a  local  interpolation  since,  being  nonzero  only  when 
rij  =  |r,  -rj\  <  k,  neighboring  particles  alone  are  used  to  make  the  estimate.  Higher 
order  basis  splines  were  tested  but  did  not  yield  significantly  better  estimates  of  a  given 
function  for  equivalent  smoothing  lengths,  and  gave  worse  results  when  derivatives  were 
estimated. 

One  of  the  powerful  features  of  SPH  is  the  ease  with  which  the  gradients  of  quantities 
can  be  estimated: 

(V/.)  =  ^  ^^VVr.,.  (2.15) 

(For  the  sake  of  brevity  I  will  in  general  be  writing  /,  for  /(r,),  and  sums  are  to  be 
understood  as  being  over  neighboring  particles  only.)  Note  that  the  kernel  is  symmetric 
(Wij  =  Wjt),  while  its  gradient  is  antisymmetric  (V^.H^.j  =  -Vr^Wjt).  The  divergence 
of  a  vector  quantity,  such  as  velocity,  can  take  a  similar  form.  However,  if  the  estimate 


14 
of  a  divergence  is  to  be  used  in  an  equation  of  motion,  it  must  be  written  in  a  form 
that  is  antisymmetric  in  i.  and  j  in  order  to  conserve  angular  momentum  when  particles 
interact.  Thus,  for  the  quantity  V  •  v,  the  identity  pV  ■  v  =  V  ■  pv  -  v  -Vp  h  used  to 
derive  the  following  estimate: 


.  ^ (2.16) 


pt 
where  v,_,  =  v,  -  v^  (see  Monaghan  1992). 

Variable  Smoothing  Length  and  Neighbor  Searching 

So  far  I  have  given  the  SPH  formalism  in  the  case  where  the  smoothing  length  h 

is  a  constant.  In  general,  however,  particles  are  given  individual  smoothing  lengths  h,, 

which  are  adjusted,  both  in  space  and  time,  so  that  the  SPH  particles  have  approximately 

the  same  number  of  neighbors.    This  refinement  will  insure  that  quantities  throughout 

a  model  are  estimated  with  comparable  accuracy,  and  enables  SPH  to  adjust  the  local 

resolution  as  the  local  number  density  changes  during  the  course  of  a  model's  evolution; 

denser  regions  will  have  finer  resolution  than  diffuse  regions.  However,  the  form  of  the 

kernel  Wij,  with  its  dependence  on  h,  is  now  uncertain.  Again,  to  insure  that  angular 

momentum  will  be  conserved,  the  kernel  is  rendered  symmetric  in  i  and  j  by  defining 

the  smoothing  length  h  =  h^j   =  {h,  +  hj)/2.    Neighboring  particles  j  will  now  be 

used  that  satisfy  the  condition  r,j  <  h^j.   Another  way  to  symmetrize  the  kernel  is  to 

define  W,j  =  {W(r,j,h,) +  W{r,j,hj))/2,  which  is  the  form  used  by  Hemquist  and 

Katz  (1989). 
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Determining  the  set  of  neighboring  particles  for  each  particle  (those  satisfying  the 
condition  r,j  <  h,j)  is  known  as  "neighbor  searching",  and  can  be  one  of  the  more  time 
intensive  tasks  in  an  SPH  program.  In  the  version  of  SPH  developed  for  this  work,  the 
neighbor  lists  are  efficiently  compiled  using  the  already  existing  hierarchical  tree  data 
structure  used  in  the  N-body  portion  of  the  code  (see  the  beginning  of  this  chapter). 
First,  the  list  of  neighbors  within  h,  is  found  by  descending  the  tree,  starting  at  the  root, 
and  continuing  to  sublevels  of  those  cells  that  intersect  the  neighborhood  of  particle  ?, 
defined  by  hj.   When  the  descent  reaches  a  particle  it  is  stored  in  the  neighbor  list  of 
particle  t,  provided  it  satisfies  the  condition  r,j  <  h^j.  At  the  same  time,  if  nj  >  hj  for 
neighbor  j  particle  i  is  added  to  the  list  of  neighbors  of  particle  j,  since  these  particles 
will  not  be  found  when  the  neighbor  search  is  done  for  particle  j. 

The  adjustment  of  the  smoothing  lengths  at  each  time  step  is  adapted  from  the 
procedure  outlined  by  Steinmetz  and  Muller  (1993),  which  uses  a  predicted  smoothed 
density,  p*,  to  find  a  new  smoothing  length: 

''.=C(^)      ,  (2.17) 

where  C  is  set  to  1.3  and  m  is  the  average  mass  of  the  neighboring  particles.    The 
predicted  smoothed  density  is  calculated  by  using 

/I    \  smooth 

p*^pf-oo.^  +  Atl^^y         ,  (2.18) 

where 

(J    \  smooth 
^1  —   „smooth/v7     ,  \  -^  /    2r7        xsmooth 

-dl)^  -P^         (V-v),--(^  V-v),  (2.19) 
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and 

/    ■->,—        \ smooth         V — ^  ,,_,         ,    ,,, 

(p-V  •  v)^  =2^  rUjPjiV  ■  v)jlV,j  .  (2.20) 

J 
All  smoothed  quantities,  indicated  by  superscript,  are  estimated  using  the  smoothing 

length  h*  =  /z,/0.8. 

This  method  maintains  the  number  of  neighbors,  Ns,  between  16  and  24  on  the 
average,  except  for  the  outer  (diffuse)  portions  of  the  disks,  where  Ns  can  drop  below  10. 
In  order  to  give  reliable  estimates  the  interparticle  distance  between  neighbors  should  be 
less  than  0.5/i,  for  the  kernel  used  [equation  (2.10)].  This  requires  that  Nj  >  13  in  two 
dimensions,  and  Ns  >  34  in  three  dimensions.  If  there  are  large  density  contrasts  in  the 
outer  regions,  the  adjustment  technique  may  also  cause  Ns  for  a  particle  to  jump  to  some 
large  value.  Therefore,  as  a  practical  matter,  hi  is  adjusted  if  Ns  is  greater  than  60  or  less 
than  10.  As  this  adjustment  takes  place  while  the  neighbor  lists  are  being  compiled,  errors 
in  the  neighbor  lists  of  nearby  particles  will  be  introduced,  which  must  be  corrected. 

Hydrodynamic  Equations 

To  evolve  the  fluid,  represented  by  a  finite  number  of  particles,  the  acceleration  and 
velocity  of  the  fluid  at  each  particle  is  applied  to  the  particles  themselves.  The  particles 
can  then  be  thought  of  as  being  parcels  of  fluid,  or  alternatively,  as  representative  particles 
moving  with  the  fluid.  In  either  case,  such  a  system's  dynamic  evolution  is  described  by 
the  Lagrangian  form  of  the  hydrodynamic  equations: 

dvi 

11  =  ^' 

dv,  1  (2-21) 

— i  = VP.  +  ar-V$„ 

at  Pi 
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where  P,  is  the  pressure,  a)'*^  is  the  artificial  viscosity  term,  and  V$,  is  the  acceleration 
due  to  the  self  gravity  of  the  system,  evaluated  using  the  hierarchical  tree  method.  The 
subscript  i  indicates  that  the  above  set  of  equations  is  applied  to  each  particle.  The 
acceleration  on  each  particle  is  evaluated  by  estimating  the  terms  on  the  right  hand  side 
of  the  equation  of  motion  using  the  SPH  formalism.  Care  must  be  taken  that  each  term 
is  in  a  form  which  is  antisymmetric  in  i  and  j,  so  that  the  mutual  forces  of  particles 
will  be  equal  in  magnitude,  but  opposite  in  direction.  In  conjunction  with  the  forces 
being  central,  the  antisymmetry  of  the  force  terms  will  insure  that  angular  momentum  is 
conserved.   Following  Hernquist  and  Katz  (1989), 


_1VP,  +  ar  =  -  E  "•.  {'-~  +  n„  )  VW,,,  ,2^22) 

where  the  artificial  viscous  term,  taken  from  Monaghan  (1992),  is 

"'^=  z££j;i      V  T  >o'    -  ^'-'^^ 

where 

/^u  =     o'      .;  •  (2.24) 

In  the  above  equations  r,j=r,  -  r^,  and  c,_,  =  (c,  +  c_,)/2  is  the  average  of  the  sound 
speed  at  i  and  ;.  The  term  //-  =  O.OU^  is  to  prevent  singularities.  The  viscosity 
parameters  a  and  (3  control  the  strength  of  the  artificial  viscous  term.  An  artificial 
viscous  term  is  introduced  into  SPH  to  model  the  bulk  viscosity  necessary  to  reproduce 
shocks.  Without  the  dissipation  that  this  term  effects,  there  would  be  an  "interpenetration" 
of  particles,  the  random  kinetic  energy  would  increase,  and  the  particles  would  no  longer 
describe  the  bulk  motion  of  a  fluid.    However,  it  also  introduces  an  effective  shear 
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viscosity.  To  reduce  the  effective  shear  viscosity  Benz  (1990)  has  introduced  a  switch  in 
the  form  of  a  multiplicative  factor  on  ;^.„  (/.,,  -.  ^,^/,^).  The  factor  /,,  is  the  average 
of  fi  and  fj,  where 

.  l(V-v)|, 

|(V-v)|,  +  |(Vxv)|,.  +  0.001c,//.,,'  (-25) 

and  the  curl  of  the  velocity  field  is  given  by  the  estimate 

(V  X  v),  =  -  J]  m,v,,  X  VW,j.  (2.26) 

—'I 
J 

This  factor  effectively  reduces  the  shear  viscosity,  but  at  the  expense  of  not  being  able 
to  vary  the  effective  shear.  In  order  to  use  the  parameter  a  to  control  the  effective  shear 
viscosity,  I  do  not  apply  the  factor  /,_,  to  the  a  term  in  the  numerator  of  n,j.  In  the 
following  subsection  I  present  models  of  shocks  using  this  hybrid  artificial  viscous  term. 
The  set  of  hydrodynamical  equations  is  closed  with  the  inclusion  of  an  equation  of 
state.  Most  simply  a  polytropic  form  can  be  used:  P,  =  KYl],  E  being  the  surface 
density.  The  index  7  is  equivalent  to  the  ratio  of  specific  heats,  and  the  constant  K  is 
the  square  of  the  isothermal  (7  =  1)  sound  speed.  More  generally,  the  ideal  gas  law 
can  be  used  in  the  form 

Pi  =  {n-l)ptu„  (2.27) 

where  u,  is  the  specific  internal  energy  of  particle  i.  The  equation  that  governs  the 
evolution  of  the  specific  internal  energy  is  the  first  law  of  thermodynamics,  du  = 
-Pdpip-  +  Tds,  where  all  nonadiabatic  effects  are  included  in  the  change  in  specific 
entropy,  ds.   The  form  of  the  thermal  energy  equation  that  is  used  in  T2DSPH  is  the 
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same  as  in  Hernquist  and  Katz  (1989): 

1^  =  E  '"^  I  ^^^  I ^'^"^^^u  +  E  "^jn„ v„  VVr„  +  //  +  C.  (2.28) 

The  first  term  of  this  equation  is  the  adiabatic  term,  the  second  term  is  the  non-adiabatic 
viscous  heating,  and  the  final  terms  represent  other  non-adiabatic  heating,  H,  and  cooling 
processes,  C,  not  associated  with  viscosity.  If  the  polytropic  equation  of  state  is  used,  then 
the  above  equation  is  not  needed.  However,  in  this  case,  this  equation  is  still  integrated 
for  each  particle  with  only  the  adiabatic  term  included.  This  is  done  so  that  the  amount 
of  energy  lost,  due  to  the  inclusion  of  an  artificial  viscosity  with  a  adiabatic  equation  of 
state,  can  be  measured  by  measuring  the  change  in  the  total  thermal  energy.  (See  further 
discussion  of  this  problem  in  section  2  of  this  chapter  under  adiabatic  shock  tests.) 
Integration  Method 

Each  particle  has  an  intrinsic  time  step  6ti  determined  by  its  velocity,  acceleration 
and  a  Courant-like  condition: 

St,  =  Cmm    — ,     —         ,  -r-r= \ \ ;-    ,  (2  29) 

\^v,    Va.7         h,\V-v\,+Ct  +  l:2{ac,+l3meiXj\n,j\)J 

where  the  parameter  C  is  0.3.  The  equations  (2.17)  are  integrated  using  a  time  centered 

leap  frog  integrator,  in  which  the  velocities  and  positions  are  alternately  stepped  forward 

in  time  a  half  step  out  of  synchronization.  For  an  individual  particle  this  can  be  written  as 

yn+l  ^  ^n  ^  ^n^^n  (2.30) 

n+1  ^     "+1/2  n+l^t? 

'■i  ^i  "r  ^i  .-)     ' 
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the  superscripts  being  the  time  step  index.  If  the  equations  for  all  the  particles  are 
integrated  simultaneously  then  the  particle  with  the  smallest  time  step  will  determine  the 
time  step  for  the  entire  system.  In  accretion  disks  with  large  central  masses,  the  range 
in  time  steps  can  be  large.  To  increase  efficiency,  multiple  time  steps  are  used,  and 
particles  are  assigned  an  individual  time  step  that  is  a  power  of  two  subdivision  of  the 
largest  time  step  of  the  system: 

^t,  =  -^■.     At^y,  =  msixiSU).  (2.31) 

Each  particle,  then,  is  assigned  a  time  bin  «,  so  that  At,  <  6t,.  Particles  are  always 
allowed  to  move  to  a  larger  time  bin  (smaller  time  step),  but  may  only  move  to  a  smaller 
time  bin  if  that  time  bin  is  time  synchronized  with  the  particle's  current  time  bin.  Forces 
are  then  calculated  for  each  particle  i  only  once  per  At,  in  order  to  step  their  velocities, 
while  positions  for  all  particles  are  stepped  every  Aipos  =  A^sys/2"'"""'"^.  Advancing 
the  positions  at  every  half  step  is  necessary  as  forces  need  to  be  calculated  at  every  half 
step.  Care  is  also  taken  that  an  estimated  velocity  v,  is  determined  for  all  particles  every 
Aipos  ,  based  on  v,  and  the  most  recent  estimate  of  a,  ,  as  the  viscous  forces  depend 
on  the  local  velocity  field.  For  further  details  of  implementing  multiple  time  steps,  see 
Herquist  and  Katz  (1989). 

Gravitational  Softening 

Gravitational  softening  is  a  common,  and  necessary,  convention  employed  in  N-body 
codes.  Real  gravitating  systems  often  possess  orders  of  magnitude  more  gravitating 
particles  than  can  be  modeled  directly — the  computational  requirements  are  simply 
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too  great.  However,  such  a  system  can  be  approximated  by  using  a  smaller  number 
of  particles  which  interact  via  a  softened  gravity,  which  damps  the  effect  of  nearby 
encounters.  In  modeling  stellar  systems,  such  as  galaxies,  the  ratio  of  the  number  of 
stars  in  a  system  being  modeled  over  the  number  of  gravitating  particles  employed  in  an 
N-body  code,  is  often  as  many  orders  of  magnitudes  as  the  number  of  particles.  When 
using  an  N-body  code  to  model  a  gaseous  system  this  difference  between  model  and 
reality  becomes  essentially  infinite,  as  a  finite  number  of  particles  is  now  representing 
a  continuous  fluid. 

The  conventional  method  of  softening  is  to  use  a  form  for  the  gravitational  force 
between  two  particles  which  possesses  a  small  constant  term  in  the  denominator: 


mimjr,j 


F.;  =  .  .,    .   '..li,.,  (2.32) 


where  G  =  1  is  assumed  throughout  this  work,  and  e  is  the  softening  parameter.  However, 
an  alternative  form  of  gravitational  softening  can  be  derived  within  the  SPH  formalism. 
The  gravitational  potential  of  a  continuous  mass  distribution  can  be  written  as 


-/ 


p{r')dr' 


(2.34) 


Using  the  SPH  estimate  of  the  density  [equation  (2.9)]  we  have 

J  J 

The  integral  Ij  can  be  evaluated  by  noting  that 

V'lj  =  -i7vW{r-rj),  (2.35) 
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from  Poisson's  equation.  Since  the  operator  (V-)  =  ^r^r-  in  spherical  coordinates  we 
have 

r'V/j  =  -  I  iirWir  -  rj,s)r-dr,  (2.36) 

or  using  Vu^  instead  of  Vr,  and  Vr  =  V„^Vr«j,  we  have 


2  ■' 

^^h  =  -  / 


47r£^H^(u)u-c;u, 


(2.37) 


where  V  represents  Vr.  From  equation  (2.29)  we  can  write 


(2.38) 


and  using  equation  (2.31)  we  can  write 

„         v-^       4;r£^ 
Vv?  =  >    m ,  — ^—  < 


I  W{u)irdu 

.  0 


►  Vwj, 


(2.39) 


where  Vu_,  =  Uj/uj.    Using  the  kernel 

3/2(2/3  -  u-  +  uV2),     if  0  <  u  <  1 


W{u)  = 


1/4(2 -lO, 
0, 


if  1  <  «  <  2 
otherwise 


(2.40) 


(equivalent  to  the  kernel  [equation  (2.10)]  with  h  — >  2£),  and  evaluating  the  integral 
in  the  previous  equation,  a  polynomial  expression  for  the  gravitational  acceleration  on 


particle  i  due  to  particle  j  can  be  written  as  a^^  =  — m_,T,j5r(r,j),  where 

-[j-F  +  K]  0<u<l 


(2.41) 


l/r^  u  >  2. 

For  the  sake  of  completeness  the  contribution  to  the  potential  of  a  particle  pair  can  be 


written  ip  =  —mjf{rij),  where 


lA 


0  <  u  <  1 

1  <u 
u  >  2. 


(2.42) 
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The  above  expressions  are  given  by  Herquist  and  Katz  (1989)  without  derivation, 
citing  Gingold  and  Monaghan  (1978).  This  form  of  the  softened  gravity  has  the  attractive 
feature  that  it  is  equivalent  to  Newtonian  gravity  when  a  particle  pair's  separation  is 
greater  than  'le. 

Accretion 

During  the  hydrodynamic  simulation  an  inner  region,  within  a  radius  Ra  of  the  central 
particle,  is  treated  semi-analytically  in  order  to  circumvent  the  modeling  of  the  central 
object  (protostar),  to  avoid  small  time  steps,  and  to  define  a  radius  at  which  particles 
are  accreted  onto  the  central  object.  The  radius  /?„  ~  0.05/?/),  and  particles  initially 
within  this  radius  are  kept  and  redistributed  within  Ra  at  each  time  step,  so  as  to  insure  a 
continuous  boundary  at  Ra,  and  thereby  provide  pressure  support  for  the  gas  outside  Ra. 
If,  instead,  no  density  profile  within  Ra  is  prescribed,  but  particles  are  simply  removed 
from  the  simulation  upon  entering  this  inner  region,  the  rate  of  accretion  will  be  dependent 
on  the  size  of  /?„.  In  real  disks,  on  the  other  hand,  the  accretion  rate  is  determined  by 
the  combined  action  of  any  global  non-axisymmetric  modes  present,  and  by  viscous  and 
magnetic  forces  acting  locally  throughout  the  disk.  Since  the  physical  condition  of  the 
disk  determines  the  accretion  rate,  I  wish  the  same  to  be  true  in  the  simulations. 

While  the  outer  particles  in  the  disk  (r  >  R^)  are  evolved  with  SPH,  inner  particles 
are  given  an  axisymmetric  distribution  so  as  to  insure  that  the  density  and  velocity  are 
continuous  across  the  boundary  at  Ra.  This  is  done  by  first  extrapolating  from  the  outer 
disk  the  density  E  and  the  radial  velocity  Vr  at  Ra,  which  is  accomplished  by  doing 
a  linear  regression  on  ln(S,),  and  Vn  of  particles  in  a  small  region  around  the  inner 
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boundary.  An  estimate  of  V  at  Ra  is  made  by  assuming  that  the  potential  at  i?„  is  due 
to  the  central  mass  and  an  exponential  disk,  with  a  scale  length  0.25i?a,  in  hydrostatic 
equilibrium.  Now  it  is  left  to  specify  S(r),  V(r),  and  V;(r)  for  the  rest  of  the  inner 
region.  One  of  two  different  density  distributions  were  used:  a  massless  polytropic  disk 
in  a  Keplerian  potential,  and  an  exponential  disk.  The  initialization  of  these  disks  is 
described  in  Chapter  3. 

The  particles  in  the  inner  disk  are  used  as  neighbors  in  the  SPH  estimations  for  the 
particles  located  outside  Ra  to  provide  pressure  support.  To  calculate  the  gravitational 
forces,  however,  these  particles  are  ignored;  the  inner  disk  and  the  central  object  are 
treated  as  a  single  particle,  with  mass  Mc  =  Mc(initial)+(accreted  mass).  The  central 
region  remains  centered  on  the  central  particle  which  moves  only  under  the  gravitational 
influence  of  the  outer  disk,  which  is  treated  as  a  nongaseous  particle  during  the  simulation. 
Particles  outside  Ra  are  allowed  to  accrete  into  this  region,  at  which  point  they  are 
removed  from  the  simulation  and  their  masses  are  added  onto  Mc. 

Treating  the  inner  region  in  this  semianalytical  way  introduces  an  inconsistency,  in 
that  the  gaseous  mass  within  /?„  (M,),  determined  from  the  density  profile  of  equation 
(2.39)  or  (3-40),  is  not  the  same  as  the  mass  initially  within  Ra.  Not  only  that,  but  A/, 
will  change  as  the  boundary  values  of  S  and  V  change.  However,  the  only  purpose  of 
this  inner  disk  is  to  provide  a  continuous  inner  boundary  for  the  outer  disk,  rather  than 
being  an  attempt  to  physically  model  the  disk  within  Ra. 
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Summary  of  Code  Parameters 

A  list  of  the  parameters  which  control  the  performance  of  T2DSPH  is  listed  for 
convenience  in  Table  2-1.    The  first  parameter,  .V,  determines  how  well  a  continuous 

Table  2-1:  Code  Parameters 

Parameter  Description  Value 

N  Number  of  particles.  5131 

c  Gravitational  smoothing  parameter  0.0212Ro 

6  Tolerance  angle  0.7  radians 

C  Courant  number  0.3 

Ra  Radius  of  inner  region  0.0544/?£) 

C  Smoothing  length  adjustment  parameter  1 .3 

Q,  3  Artificial  viscosity  parameters  — ,  1 .5 

fluid  is  approximated  by  the  numerical  method.  While  a  large  number  of  particles  results 
in  a  better  approximation,  the  cost  is  greater  computational  time  per  time  step.  The  next 
two  parameters  control  aspects  of  the  gravitational  force  calculations,  while  the  Courant 
number  determines  the  size  of  the  time  integration  steps.  The  fifth  parameter  defines  the 
radius  about  the  central  massive  particle  at  which  SPH  particles  are  removed  from  the 
simulation,  and  their  masses  added  to  the  central  particle.  The  parameter  ;  determines  the 
average  number  of  neighbors,  which  should  be  greater  than  13  for  two  dimensions,  and 
greater  than  35  for  three  dimensions.  The  last  two  parameters  are  the  artificial  viscocity 
parameters;  3  is  not  varied,  while  q  is  given  one  of  three  values  to  introduce  varying 
degrees  of  effective  shear  viscocity.  In  this  sense  a  is  treated  as  a  physical  parameter  of 
the  gas.  The  nominal  values  used  for  the  simulations  presented  in  Chapter  4  and  5  are  also 
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given.  The  units  of  length  are  expressed  as  fractions  of  the  initial  disk  radius,  Ro-  Tests 
verifying  that  the  chosen  values  result  in  accurate  simulations  are  presented  in  Chapter  4. 

Tests 

To  validate  the  accuracy  of  the  hydrodynamics  code,  or  at  least  to  increase  confidence 
in  its  results,  a  variety  of  test  models  were  run  which  can  be  compared  to  analytical 
expectations.  The  first  model  presented  is  that  of  a  stable,  rotating  Maclaurin  disk.  A 
series  of  two-dimensional  adiabatic  shock  fronts  were  also  modeled  to  specifically  test 
the  hybrid  viscosity  employed  in  T2DSPH  (see  previous  section  of  this  chapter). 

Maclaurin  Disk 

A  test  to  the  code,  using  both  SPH  and  self-gravity,  is  a  simulation  of  a  Maclaurin 
disk,  the  two-dimensional  counterpart  to  a  Maclaurin  spheroid,  which  represents  a 
polytropic  stable  solution  to  Poisson's  equation  and  hydrostatic  equilibrium  when  7=3. 


The  surface  density  profile  is  S(r)  =  SqWI  -  {r~/Rjj),  and  is  initialized  by  radially 
stretching  a  regular  grid  of  particles  (see  Chapter  3). 

Figure  2-2  shows  the  surface  density  and  velocity  profile  after  26  dynamical  times 
(Tdynamic  —  RdI^{Rd))^  the  dotted  line  representing  the  analytical  solution.  The 
particle  velocities  lie  slightly  below  the  analytical  solution  because  the  code  employs 
softened  gravity.  Because  the  disk  is  in  solid  body  rotation  the  effective  shear  viscosity 
of  the  code  has  no  effect  on  the  disk  during  the  simulation,  that  is,  angular  momentum 
transfer  is  not  induced. 
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Figure  2-2:  Surface  density  and  velcx;ity  profile  of  the  Maclaurin  disk  after  26  dynamical  times. 

Two-Dimensional  Shocks 

Two-dimensional  adiabatic  shocks,  without  self-gravity,  were  modeled  as  a  means  of 
specifically  testing  the  implementation  of  SPH  in  the  program  T2DSPH,  and  as  a  test  of 
the  hybrid  viscosity  that  is  employed  (see  previous  section).  A  two-dimensional  sheet, 
with  an  initial  density  equal  to  one,  was  initialized  by  placing  particles  on  a  regular 
grid.  Particles  with  a  positive  x  coordinate  are  given  an  initial  negative  x  component 
velocity  of  Mach  1 ,  and  those  with  a  negative  x  coordinate  are  given  a  Mach  1  velocity 
in  the  opposite  direction.  This  results  in  the  formation  of  an  accretion  shock,  having 
two  boundaries  parallel  to  the  y  axis  traveling  away  from  each  other.  The  sheet  has  a 
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finite  extent,  resulting  in  rarefaction  waves  traveling  inward  from  the  edges  of  the  sheet. 
However,  for  a  time,  the  central  region  of  the  sheet  will  be  uncontaminated  by  these 
waves,  allowing  the  simulation  there  to  be  compared  with  an  analytical  solution. 

For  all  the  tests  presented  here  the  polytropic  equation  of  state  was  used,  with  7  =  2. 
From  the  jump  conditions  of  an  adiabatic  shock,  and  using  the  polytropic  equation  of 
state,  a  solution  can  be  found  for  the  shock  velocity  and  post-shock  density.  However, 
this  will  not  be  the  desired  solution.  By  employing  an  artificial  viscosity,  at  the  same 
time  that  we  use  a  polytropic  equation  of  state,  we  have  introduced  an  effective  cooling, 
because  the  kinetic  energy  dissipated  by  viscosity  is  not  added  to  the  system  as  heat. 
This  thermal  energy  would  be  added  to  the  material  if  the  specific  thermal  energies  of 
the  particles,  «,,  were  evolved: 

(■^j  =9E^^n'^^'^  (2.43) 

\         /  non— adiabatic         "      . 

In  other  words,  in  spite  of  our  polytropic  equation  of  state,  we  do  not  have  a  purely 
adiabatic  shock.  This  can  be  taken  into  account  in  our  analytical  solution  by  the  addition 
of  a  post-shock  cooling  term,  Q  (heat  lost  per  unit  mass),  in  the  energy  jump  condition. 
Therefore,  using  the  polytropic  equation  of  state,  with  ^=1,  the  jump  conditions  are: 

P\V\  =  P2V2, 

Pivl  +  p\  =  pnvl^p],  ^2.44) 
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which  results  in  the  final  solution: 


Vo  = 


Pi 


6+,/6-'  +  4 


{f-l){v-:/2-Q)  +  ',pl 


-^^-1 


(2.45) 


1'9 


P2         ^o  +  V2 


where 


0  =  ^ — Vo  + Q. 


(2.46) 


2  Vo 

The  solution  above  is  given  in  the  post-shock  reference  frame,  with  Vg  and  vo  representing 
the  pre-shock  velocity  and  the  shock  front  velocity  respectively. 
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Figure  2-3:  Surface  density  of  three  two-dimensional  accretion 
shocks.  The  bottom  accretion  shock's  surface  density  is  offset  from 
the  top  by  -2,  and  the  middle  by  -1,  from  the  top  accretion  shock. 
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In  Figure  2-3  three  simulations  are  shown.  The  bottom  two,  with  a  =  0.25,  1,  in 
ascending  order,  and  /?  =  0,  do  not  use  the  viscosity  switch.  In  the  third  simulation, 
shown  at  the  top  of  the  figure,  the  hybrid  viscosity  is  employed,  with  a  =  0.25,  3  =  1.5. 
Although  this  solution  is  not  as  good  as  the  first,  it  has  much  less  effective  shear  viscosity. 
Also,  notice  that  there  is  no  interpenetration  of  particles,  as  there  is  in  the  first  case. 

Analysis  of  Disks 

Evaluation  of  Effective  Shear  Viscosity 

In  the  SPH  formalism  shear  viscous  forces  are  not  introduced  directly,  but  instead 
are  a  result  of  the  artificial  viscous  term,  a'''^'^,  being  evaluated  over  a  finite  region. 
Hemquist's  form  of  the  artificial  viscous  term  illustrates  this  more  explicitly;  being 
dependant  on  (V  •  v)  it  formally  introduces  no  shear  force  but  is  purely  a  bulk  viscous 
force.  However,  what  is  used  numerically  is  an  estimate  of  (V  •  v),  which  is  evaluated 
by  looking  at  particles  within  a  finite  region  (neighborhood)  around  the  point  of  interest. 
In  addition,  the  total  force  on  a  particle  is  a  sum  of  symmetric  forces  between  itself  and 
neighboring  particles  at  other  radii,  and  the  tangential  components  of  these  forces  transfer 
angular  momentum.  These  errors  in  the  estimation  formally  vanish  as  the  smoothing 
length  approaches  zero. 

This  implicit  introduction  of  the  shear  viscous  forces  in  SPH  causes  an  unfortunate 
situation  for  those  attempting  to  use  this  method  to  model  astrophysical  disks,  where 
large  velocity  gradients  can  exist  and  shear  viscous  forces  play  an  important  role.  In 
SPH  both  bulk  and  shear  viscous  forces  are  effectively  coupled  together,  rather  than 
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being  independently  parameterized.  In  an  attempt  to  decouple  the  bulk  viscosity  needed 
to  describe  shocks  and  the  effective  shear  introduced  by  the  artificial  viscous  term,  an 
alternate  form  for  the  artificial  viscous  term  was  introduced  in  section  2.  Here  I  wish 
to  address  how  the  effective  shear  viscosity  scales  with  the  viscous  parameter  a  or  any 
other  quantities.  The  functional  form  of  the  artificial  viscous  term  suggests  that,  like 
the  ai/  viscosity  of  accretion  disk  theory  (Shakura  &  Sunyaev  1973),  the  effective  shear 
coefficient  scales  as  a^ch,  c  being  the  sound  speed  and  h  representing  a  characteristic 
length.  Artymowitz  (1993)  has  suggested  that  for  SPH  a^  —  O.Iq,  with  the  characteristic 
length  being  considered  as  the  smoothing  length.  While  the  similar  functional  form  of 
the  artificial  viscous  term  and  the  viscosity  of  accretion  disk  theory  is  suggestive,  it  is  no 
guarantee  that  the  implicit  shear  will  behave  similarly,  being  a  by-product  of  estimation. 
It  is  therefore  desirable  to  determine  not  only  the  relative  magnitudes  of  a  and  aj/,  but 
also  whether  the  effective  shear  scales  in  the  way  that  the  artificial  term  suggests. 

To  investigate  the  effective  shear  associated  with  the  artificial  viscosity  three  models 
were  run  with  o  =  1,  0.5,  0.25.  An  exponential  disk  was  initialized,  with  the  velocity  field 
now  consistent  with  assuming  that  the  disk  is  in  a  Keplerian  potential  with  no  pressure 
support.  These  disks  were  evolved  with  SPH  consistent  with  these  assumptions,  and  they 
remain  axisymmetric  in  the  absence  of  self-gravity.  Since  no  pressure  support  is  required 
it  was  found  to  be  advantageous  to  exclude  the  inner  disk,  and  to  simply  remove  particles 
from  the  simulation  when  they  approached  within  Ra  of  the  gravitating  particle  located  at 
the  origin.  After  a  few  dynamical  times  a  radial  velocity  flow  is  established  throughout 
most  of  the  disk  as  a  result  of  the  effective  shear  viscosity. 
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From  standard  accretion  disk  theory  the  radial  velocity  profile  of  an  axisymmetric 
thin  disk,  with  no  radial  pressure  support,  is  given  by 


Vr    = 


^      ,^     ■^.< 


r(nr-^)'j"^|-(S.r3Q'),  (2.47) 

where  17  is  the  angular  velocity,  and  the  primes  denoting  radial  derivatives  (Pringle  1981). 
If  the  shear  coefficient  u  is  not  a  constant,  then 

r 

'^={^r'n'y'  JvrM^r'')'dr.  (2.48) 

0 

For  a  Keplerian  potential  Q-  =  GM/r\  which  upon  substitution  results  in 

r 

^  =  -l{Er'/'y'  JvrEr'/^dr.  (2.49) 

0 

If  in  SPH  the  shear  coefficient,  u,  scales  as  a^ch,  then  a^  =  u/ch  will  be  constant 
over  the  disk,  and  can  be  estimated  by  evaluating  the  above  expression  for  ly.  The  SPH 
particles  of  the  evolved  disks  are  used  to  find  the  surface  density  and  radial  velocity 
of  annuli  centered  on  the  origin,  and  the  integral  in  equation  (2.48)  is  estimated  by  the 
sum  over  the  annuli 

5^yr.S,rJ/"Ar,  (2.50) 

t 

where  Ar  is  the  width  of  the  annulli  and  is  equal  to  .05Rd.  Now  at  each  radius  r,  the 
shear  viscous  parameter  au  can  be  estimated  by  using 

remembering  that  the  sound  speed  c  =  y/2KE  when  7  =  2,  and  the  smoothing  length 
h  =  1.3^mp/S,  where  nip  is  the  mass  of  each  SPH  particle  and  assuming  that  the 
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smoothed  density  S*  =  !].  Using  this  method  on  the  three  models  described  above 
yielded  a^  approximately  constant  with  radius,  with  values  of  0.1,  0.05,0  .02  ±  .01 
for  each  model  respectively.  Much  of  the  uncertainty  arises  from  a  time  variability  that 
is  probably  due  to  radial  oscillations.  The  fact  that  au  is  found  to  be  approximately 
constant  over  the  disk  confirms  that  the  effective  shear  viscosity  scales  the  same  way  as 
the  artificial  (bulk)  viscosity. 

Evaluation  of  Modes  and  Their  Frequencies 

To  follow  the  evolution  of  the  nonaxisymmetric  modes  a  method  similar  to  that  of 
Papaloizou  and  Savonije  (1991,  hereafter  PS)  is  adapted;  a  polar  grid,  concentric  with 
the  center  of  mass  of  the  system,  is  imposed  on  the  disk  with  a  radial  extent  from  0. 1 
to  1.  The  density  is  evaluated  at  64  points,  equally  spaced  in  azimuth,  for  each  of  25 
equally  spaced  radii,  and  then  normalized  by  dividing  the  density  at  each  point  by  the 
average  density  at  each  radius.  The  modes  are  identified  by  doing  a  Fourier  analysis  of 
the  normalized  density  in  azimuth  at  each  radius,  and  plotting  the  power  spectrum  as  a 
function  of  mode  number  and  radius  (Figure  2-4).  Unlike  PS,  the  density  is  not  taken  to 
be  the  mass/area  of  individual  cells  defined  by  the  grid,  but  instead  the  SPH  formalism 
is  used  to  estimate  the  density  at  each  grid  point: 

Sit  =  ^m,l^fc„  (2.52) 

i 

where  the  sum  is  over  all  particles  having  the  grid  point  k  within  their  smoothing  length 
hi.  This  analysis  can  be  done  at  each  time  that  the  position  and  smoothing  lengths  of  the 
particles  are  output  by  the  SPH  code,  which  is  at  every  0.5  dynamical  times  (see  Chapter 
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3  on  choice  of  units).  Another  useful  way  of  presenting  the  results  of  this  analysis  is  with 
a  contour  plot  of  the  dynamic  spectrum:  the  power  in  a  particular  mode  as  a  function 
of  radius  and  time  (Figure  2-5).  The  evolution  of  a  particular  disk  can  be  more  simply 
characterized  by  considering  the  maximum  power,  with  respect  to  radius,  of  each  mode 
as  a  function  of  time  (Figure  2-6). 

To  find  the  frequencies  that  are  present,  the  SPH  code  outputs  the  estimated  density 
at  100  points  along  both  the  x  and  y  axes  of  a  Cartesian  grid,  with  its  origin  at  the  center 
of  mass  of  the  system,  at  every  third  system  time  step.  After  the  simulation  a  Fourier 
analysis  is  done  in  time,  at  each  radius,  for  a  specified  time  interval.  Contour  plots  of 
the  power,  as  a  function  of  radius  and  frequency,  can  be  displayed  separately  for  each 
axis,  or  averaged  together  (Figure  2-7).  Provided  that  there  are  a  limited  number  of 
modes,  the  contour  plots  of  the  modes  and  of  the  frequencies  can  be  used  together  to 
match  frequencies  with  particular  modes. 
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Figure  2-4:  Normalized  power  spectrum  of  modes  of 
model  A2  (see  Chapter  4)  at  Time  =  21  dynamical  times. 
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Figure  2-5:  Dynamic  power  spectrum  of  the  normalized  density  for  mode  =  2  of  model  A2. 
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Figure  2-6:  Maximum  of  tlie  power  spectrum,  in 
modes  =  1  -  4,  of  the  normalized  density  in  model  A2. 
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Figure  2-7:  The  average  Lombe  periodogram  of  normalized 
density  temporal  fluctuations  along  Cartesian  axes  for  model  A2. 


CHAPTER  3 
INITIALIZATION  OF  DISKS 

In  this  chapter  the  initialization  of  the  disks  numerically  evolved  with  SPH  is  detailed. 
Initializing  a  disk  for  an  SPH  program  involves  finding  a  distribution  of  points  in  phase 
space  v^'hich  suitably  describes  the  particular  density  and  velocity  field  of  the  disk.  Except 
for  perturbations,  all  initial  disks  used  in  this  work  are  axisymmetric  and  in  radial 
hydrostatic  equilibrium.  Global  parameters  describing  a  disk  are  the  disk  mass  Mj) 
and  the  radius  of  the  disk  Rjj.  With  the  exception  of  the  Maclaurin  disk,  and  in  the  spirit 
of  modeling  protostellar  accretion  disks,  there  will  also  be  a  central  particle  with  mass 
Mc,  giving  a  total  mass  for  the  protostar/disk  system  of  My  -  Mc  +  Mo-  Treating  the 
central  object  as  a  point  mass  is  equivalent  to  assuming  it  is  several  magnitudes  smaller 
in  size  than  the  disk  radius.  This  assumption  is  valid  for  protostellar  disks  that  have  radii 
approximately  10  -  lOOOAU.  Parameters  of  the  gas  itself  are  the  ratio  of  specific  heats, 
7,  and  the  isothermal  sound  speed  K.  Unless  stated  otherwise,  dimensionless  units  of 
mass,  length,  and  time  will  be  used  for  which  Mt  =  Rd  =  G  =  I.  In  this  case  the  unit 
of  time  then  becomes  the  dynamical  time:  To  -  RdIV^Rd)  =  {R])/GMt)  .  The 
models  may  then  be  scaled  to  the  desired  dimensions.  For  instance,  if  Mt  —  IM©  and 
Ro  =  lOOAU  then  the  dynamical  time  is  159  years. 
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Two-dimensional  Disks 

Maclaurin  Disk 

A  two-dimensional  disk  has  already  been  presented  in  Chapter  2  as  one  of  the 
tests  to  the  SPH  code:  the  Maclaurin  disk.  This  is  a  two-dimensional  version  of  the 
Maclaurin  spheroid,  which  represents  a  polytropic  stable  solution  to  Poisson's  equation 
and  hydrostatic  equilibrium  when  7=3.  The  surface  density  profile  of  the  Maclaurin 
disk  is 


nr)  =  ^o^l-{r^lR'o).  (3.1) 

and  is  initialized  by  radially  stretching  a  regular  grid  of  particles.   The  central  density 
So  is  given  by  ^Md/'^'^^d- 

This  method  of  constructing  an  axisymmetric  disk  I  call  the  stretched  grid  method, 
and  is  equivalent  to  transforming  the  radial  coordinate,  R,  of  a  particle  in  a  uniform  disk 
to  the  new  radial  coordinate  r  via  a  coordinate  transform  function:  r  =  A{R)R.  To  apply 
this  method  the  transform  function,  or  stretching  factor,  A{R),  must  be  found  which  will 
transform  a  uniform  disk  into  a  Maclaurin  disk.  The  desired  function  can  be  found  by 
considering  an  invariant  of  the  transform,  the  mass  within  a  given  radius.  That  is,  the 
mass  within  a  given  radius  of  the  uniform  disk,  MoR'/Rj^,  is  equivalent  to  the  mass 
within  r  =  AR  of  the  Maclaurin  disk,  which  is 


Md 


r2   N  3/2 

Rjy 


(3.2) 


41 
Setting  the  above  expression  equal  to  MdR^ j R-q,  replacing  r  with  AR,  and  solving  for 
A  gives  the  desired  transform  function: 


MR)  =  ^ 


1 


1 


^'d 


ll/2 


(3.3) 


Giving  each  particle  in  the  uniform  disk  with  radial  coordinate  /?,  <  Rq  a  new  radial 
coordinate  r,  =  A(Rt)R„  and  discarding  any  remaining  particles,  transforms  a  uniform 
grid  into  a  Maclaurin  disk  (see  Fig  3-1). 


>■      0 


Figure  3-1 :  Initial  distribution  of  particles  for  the  Maclaurin  Disk. 


This  method,  though  quite  general,  was  found  to  be  of  limited  usefulness  when  it 
was  used  to  construct  disks  that  possess  stronger  central  mass  concentrations,  such  as  the 
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polytropic  Keplerian  and  exponential  disks  described  below.  The  undesirable  feature  of 
the  disks  built  with  this  method  is  the  presence  of  artifacts  of  the  grid  from  which  the  disk 
was  stretched:  the  direction  to  the  nearest  neighbor  is  not  isotropic  on  the  average,  the 
particles  instead  appearing  to  be  "planted"  in  rows,  and  the  edge  of  the  disk  is  corrugated, 
or  scalloped.  These  artifacts  are  not  severe  in  the  Maclaurin  disk  shown  in  Fig  3-1,  but 
they  become  much  more  pronounced  in  centrally  condensed  disks. 

Once  the  particles  have  been  spatially  distributed  their  velocities  are  determined. 
The  initial  tangential  velocity  of  each  particle  V,  in  the  Maclaurin  disk  is  kVo{r,), 
Vo{ri)  =  Cri/Rf)  being  the  initial  tangential  velocity  required  if  the  disk  were  supported 
purely  by  rotation,  with  C"  =  Z-kGMdI'^Rd-  The  rotation  parameter  k  =  V/Vo  =  0.4  is 
assumed  to  be  a  constant  with  respect  to  radius,  and  gauges  the  importance  of  rotational 
support.  Maclaurin  disks  with  k  <  0.5  will  be  stable  against  secular  instabilities  (Binney 
and  Tremaine,  1987).  The  tangential  velocity  Vq  was  found  from  the  gravitational  force 
on  each  particle,  evaluated  using  a  direct  sum  over  all  other  particles,  rather  than  using 
the  analytical  formula  for  K>,  because  of  the  softened  form  of  gravity  employed.  From 
the  requirement  of  radial  hydrostatic  equilibrium, 

1  dP       V-      V^ 

V  ^  = -^  (3-4) 

Li  or  r  r 

which  follows  from  the  radial  component  of  the  equation  of  motion  in  cylindrical 
coordinates,  and  the  assumptions  of  axisymmetry  and  no  radial  motion,  the  constant  K  in 
the  equation  of  state  is  found.  It  is  determined  to  be  a  function  of  the  disk  parameters: 
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The  above  expression  is  found  from  assuming  unsoftened  Newtonian  gravity,  whereas 
the  code  that  will  evolve  the  initial  conditions  uses  softened  gravity.  Because  the  value 
of  the  softening  parameter  is  small,  the  error  introduced  by  this  inconsistency  is  also 
small.  Using  k  =  0.4  and  Md  =  /?/?  =  !  gives  us  /(:=2.8939. 
Exponential  Disks 

Exponential  disks  were  chosen  to  simulate  accreting  protostellar  disks  in  large  part 
due  to  the  previous  theoretical  and  numerical  work  that  has  been  done  with  such  disks 
(Papaloizou  and  Savoneji,  1991).  This  is  the  practical  reason.  That  such  a  choice  is 
reasonable  physically  is  somewhat  bom  out  by  the  numerical  result  that  the  exponential 
profile  is  preserved  over  most  of  the  disk  for  the  majority  of  the  duration  of  the  numerical 
evolution,  at  least  in  the  case  where  the  central  star  to  disk  mass  ratio  was  equal  to  three. 
The  models  with  equivalent  star  and  disk  masses  differ  significantly  in  that  a  m=l  mode 
completely  dominates  the  mass  distribution  of  the  disk  and  erases  all  axisymmetry.  In  any 
event,  angular  momentum  transport  and  mass  accretion  reinforce  the  centrally  condensed 
mass  distribution. 

To  represent  the  mass  distribution  of  these  disks,  particles  representing  the  gas,  all 
of  equal  mass,  are  placed  in  concentric  rings  around  the  central  particle  at  the  origin. 
The  surface  density  profile, 

S(r)  =  Soexp(-r/r5),  (3.6) 

is  achieved  by  appropriately  spacing  concentric  rings,  from  the  inside  out,  so  that  the 
correct  interparticle  separation,  (m/E(r))^/^  is  nearly  imposed.  The  scale  length  r<,  is 
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set  to  0.25  in  all  models,  while  the  ratio  of  the  central  to  disk  mass  Mc/Md  is  either  3 

or  1.  The  central  density  is  then  given  by  the  expression 

-1 


V    _ 

—'0  — 


Md 


l_e-«-/'--(i  +  :^ 


(3.7) 


Before  the  disk  is  built  the  number  of  total  desired  particles,  Ntot,  is  specified.  The 
gaseous  particles  are  then  assigned  a  particle  mass  of  Jiip  —  Mo/^tot-  The  first  ring 
of  gaseous  particles  consists  of  six  particles  placed  at  equal  angular  intervals  around 
the  central  particle  at  a  distance  0.5  x  r(6mp),  one  half  the  radius  within  which  a  mass 
of  6mp  resides  in.  Here,  and  in  what  follows,  the  radius  r(mr)  is  found  by  using  the 
Newton-Raphson  method,  with  the  expression  for  the  mass  that  lies  interior  to  a  given 
radius  for  the  exponential  disk: 


m{r)  =  So2xr;  [l  -  e'^^^'ir/r,  +  1) 


(3.8) 


For  subsequent  rings,  the  ring  radius  r„  is  determined  by  finding  the  number  of  particles 
in  the  ring.  An,  that  minimizes  the  quantity 


(r„  -  r„_i)  - 


^V„ 


(3.9) 


where  rf^  =  [r'^  +  r'^_i)/2,  with  each  primed  radii  being  the  outer  radius  of  the  annulus 
about  the  nth  ring.  This  is  an  attempt  to  equate  the  distance  between  ring  n  and  n  +  1 
with  the  distance  between  particles  in  ring  n.  To  calculate  the  quantity  above,  the  radius 
of  an  nth  ring  with  A^„  particles  is  found  from  r'^_j,  and  the  radius  r'„  within  which 

n 

there  are  ^V^  =  ^  Nj  particles.  This  iterative  procedure  is  continued  until  AV  >  Ntot-  If 
Nt  >  Ntot  then  Ntot  is  set  equal  to  Nr,  the  particle  mass  nip  is  reinitialized,  and  the  disk 
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rebuilt.  For  an  exponential  disk  this  procedure  will  converge  on  a  value  of  Ntot  which 
will  result  in  a  disk  being  built  with  iVr  =  Ntot  at  the  outer  most  ring.  In  the  case  where 
5000  particles  are  initially  requested,  the  above  algorithm  results  in  an  exponential  disk 
with  5130  particles.  Though  the  above  procedure  for  building  an  axisymmetric  disk  with 
particles  on  concentric  rings  is  in  principle  quite  general,  requiring  only  that  the  desired 
function  m(r)  =  'It:  J  T,{n)udu  be  specified,  it  is  not  known  whether  the  iteration  will 

0 

converge  for  other  density  profiles. 

An  initial  circular  velocity  V  is  assigned  for  each  ring  of  particles  according  to  the 
equation  of  radial  hydrostatic  equilibrium,  which  leads  to 

V'  =  tAVS^--^  +  K'  =  -lA'-S^-i  +  K',  (3.10) 

dr  Va 

where  V^'/r  for  each  ring  is  calculated  by  finding  the  radial  gravitational  acceleration  for 
each  particle,  through  a  direct  summation,  and  averaging  the  radial  components  of  the 
acceleration  of  the  particles  in  each  ring.  In  doing  this  calculation  softened  gravity  is  used. 
The  value  of  the  constant  A',  the  square  of  the  isothermal  sound  speed,  is  determined  by 
assuming  radial  hydrostatic  equilibrium  throughout  the  disk  and  specifying  a  minimum 
value  for  Toomre's  stability  parameter  Q  =  kc/tGT,,  where  k  =  (f ^  +  2^)^/^  is 
the  epicyclic  frequency.  Toomre's  parameter  is  a  local  stability  parameter,  derived  from 
the  linearized  hydrodynamic  equations  of  a  local  region  of  a  rotating  gas  sheet,  which 
describes  the  stability  of  a  two-dimensional  disk  (Toomre  1964).  When  Q  >  1  the  disk  is 
stable  against  axisymmetric  perturbations,  but  the  disk  generally  remains  unstable  to  non- 
axisymmetric  modes  for  values  of  1  <  Q  <  3.  The  epicyclic  frequency,  k,  is  numerically 
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evaluated  for  each  ring  n  with  the  expression 

rk  {''n+\  -r„_i)  "      rl 

Using  the  expression  c"  =  ■yK^'^^^,  Toomre's  stability  parameter  can  be  written  as 


(3.11) 


Q 


wG 


(3.12) 


An  expression  for  the  constant  A'  can  be  found  from  specifying  Qmin  using  the  previous 
equation: 


(Qmin'^Gy 


(3.13) 


For  all  the  two-dimensional  exponential  disks,  Qmin  is  set  to  1.15.  In  Figure  3-2  is  shown 
the  initial  velocity  profile  and  the  value  of  the  Toomre  Q  parameter  with  respect  to  radius. 


Figure  3-2:  The  initial  Toomre  Q  parameter  (solid  line)  and  tangential 
velocity  (dotted  line)  with  respect  to  radius  for  a  Mc/Md  =  3  disk. 
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A  density  perturbation  is  then  seeded  into  the  disk  by  adding  independent  Gaussian 
noise  to  the  x  and  y  coordinates  of  each  particle,  the  displacement  having  a  standard 
deviation  of  0.02  of  the  interparticle  distance.  This  perturbation  is  added  after  the 
tangential  velocity  V  is  determined  for  all  of  the  rings.  The  subroutine  which  generates 
the  Gaussian  noise  is  taken  from  Numerical  Recipes  (Press  et  al.,  1992).  This  introduces 
a  density  fluctuation  with  an  rms  amplitude  0.03  times  the  average  density.  The  purpose 
of  introducing  the  noise  is  twofold.  The  first  is  to  excite  all  possible  modes,  so  as  to 
observe  which  modes  grow  fastest  and  those  which  tend  to  dominate  the  disk.  This  was 
the  primary  reason  for  the  introduction  of  noise.  The  second,  more  serendipitous,  is  to 
avoid  a  flaw  in  the  initializing  method.  If  the  SPH  particles  were  distributed  on  concentric 
rings,  without  noise,  then  the  regularity  of  their  distribution  will  suppress  some  possible 
responses  while  enhancing  others.  For  instance,  it  was  found  from  evolving  a  disk  with  no 
noise,  but  with  an  m=2  perturbation  (see  below),  that  the  initial  growing  mode  developing 
early  in  the  disk's  evolution,  while  particles  still  lay  on  concentric  rings,  led  to  the  rings 
being  distorted,  and  themselves  becoming  structures  that  excited  a  response.  The  folded 
and  compressed  portions  of  the  rings  formed  shock  "wakes"  to  the  arms. 

The  FORTRAN  code  which  generates  the  initial  positions  and  velocities  of  the 
particles  that  describe  the  exponential  disk  is  listed  in  Appendix  C.  The  initial  distribution 
of  points  for  the  exponential  disk  is  shown  in  Figure  3-3,  while  the  initial  radial  profile 
of  the  density  is  shown  in  Figure  3-4. 
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Figure  3-3:  Initial  distribution  of  particles  in  an  exponential  disk. 


In  one  model  an  m=2  density  perturbation  is  introduced  of  the  form  E'(r,  (^)  = 
So(r)p(r)cos  (rrup),  where  p{r)  =  Ap[7r{r  -  rs)/{RD  -  ^s)],  with  Ap  being  0.01,  and  E,, 
representing  the  unperturbed  density  given  by  equation  (3.5).  This  perturbation  is  induced 
by  displacing  the  particles  along  the  circumference  of  their  respective  ring.  To  find  the 
displacements  which  will  effect  the  desired  density  perturbation  in  a  particular  ring,  I 
consider  the  perturbed  density  in  the  form  S'(A:,x)  =  Acos{kx),  where  A  =  T,o{r)p{r), 
k  =  m/r,  and  x  =  ipr,  an  arclength.  This  form  of  the  perturbed  density  can  be  considered 
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Figure  3-4:  Initial  density  profile  of  an  exponential  disk  with  Mq  =  0.25  and  a  scale  length  of 
Tj  =  0.25.  Each  point  corresponds  to  the  estimated  density  at  each  particle  position, 
evaluated  with  the  SPH  method,  while  the  solid  line  is  the  intended  density  profile. 


as  being  the  perturbed  density  of  a  one-dimensional  sound  wave  at  time  equal  zero, 
which  is  more  generally  written  as  S'(x,0  =  Acos{kx  -  wt).  Linearization  of  the  one- 
dimensional  equation  of  continuity  and  motion  gives  the  wave  equation 

dv'  c-  dE' 

£!_  ^  _£^ii^,  (3.14) 

dt  Ho  dx 

where  Co  is  the  sound  speed  equal  to  w/k.  Using  this  equation  and  the  given  form  of 

the  perturbed  density,  I  find  the  perturbed  velocity  v'  =  Cop{r)cos{kx  -  wt).  From  this 

perturbed  velocity  a  displacement  can  be  found: 

p{r] 


r 
ix  =       v'dt  =  —  ■ 


-sin{kx  —  wt). 


(3.15) 
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The  desired  displacements  are  those  at  t  =  0,  at  which  time  an  equation  for  the  perturbed 
particle  position  x  is  formed: 

X  =  Xo —sin{kx),  (3.16) 

A; 

Xo  being  the  unperturbed  position,  and  Ax  =  x  —  Xq.  This  equation  is  solved  for  each 

particle  using  the  Newton-Raphson  method. 

To  find  the  associated  perturbed  velocities,  the  velocities  of  the  one-dimensional 
sound  wave  employed  above  are  not  used.  While  the  above  derivation  is  sufficient  for 
finding  the  displacements,  it  is  an  oversimplification  with  regards  to  the  gas  dynamics 
of  the  disk.  Instead,  the  equation  of  radial  hydrostatic  equilibrium  is  used  to  find 
the  tangential  velocity  V{r,if)  by  inserting  the  perturbed  density.  This  results  in  the 
expression 

Tr{r  -rsY 


r2  —^  '^    I /  -        /       7!" 


V'{r,ip)  =  V;^  -7A'v„V<!  l-p{r)cos{m<f){  1  +  (  ^— —  ]cot 


s 


l-rs 


(3.17) 
Another  model  that  was  evolved  includes  an  encountering  particle,  with  a  mass  of  0.5, 
that  approaches  the  central  particle  with  a  minimum  distance  of  roughly  1 .0.  Otherwise 
the  disk  and  central  particle  are  initially  identical  to  model  D2.  The  initial  separation 
between  the  encountering  particle  and  central  particle  is  about  8.772.  The  energy  of  the 
encountering  particle  is  specified  to  be 

.       E=- '-,  (3.18) 

2       a 

where  M  is  the  mass  of  the  central  object  and  disk  (1.0),  me  is  the  mass  of  the 
encountering  particle  (0.5),  and  a  is  the  separation.  With  this  energy  the  relative  velocity 
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of  the  particle  is  v  -  y/3GM/a.  A  common  parameter  to  describe  an  encounter  is  the 
impact  parameter  6.  Instead  of  specifying  this  parameter  I  have  specified  the  minimum 
separation  amin  =  1-0.  The  impact  parameter  can  then  be  determined  as 

(3.19) 


with 


^      GMmA   2 

E  + — .  (3.20) 

The  energy  of  the  encountering  particle  can  also  be  parameterized  in  terms  of  the  velocity 


of  the  particle  if  removed  to  infinity,  Vg  =  J-^E-  The  specific  angular  momentum  of 
the  encountering  particle  is  then  bVo.  Using  this,  the  components  of  the  velocity  can  then 
be  determined:  vt  =  bVo/a,  and  vj  =  v-  -  r|^,  being  the  velocity  tangential  and  parallel 
to  the  separation  vector  respectively. 
Inner  Disks 

As  described  in  Chapter  2,  a  small  inner  region  about  the  central  particle  is  described 
analytically,  rather  than  being  evolved  with  SPH.  Two  different  inner  disks  are  used. 
If  the  disk  mass  within  Ra  is  much  less  than  Mc,  it  may  be  considered  as  a  massless 
Keplerian  disk.  Assuming  axisymmetry  in  two  dimensions,  radial  hydrostatic  equilibrium, 
and  using  a  polytropic  equation  of  state  with  7  =  2,  the  density  distribution  within  Ra 
may  be  written 

It  has  also  been  assumed  that  k  ~  V/Vo  =  V{Ra)/Vo{Ra)  is  a  constant  throughout  the 
inner  disk,  and  Vo  is  the  circular  rotation  without  pressure  support.  The  inner  particles  are 


52 
repositioned  on  concentric  rings  to  describe  this  density  distribution,  with  their  masses 
being  reassigned  so  that  Wp  is  equal  to  Mm  divided  by  the  number  of  inner  particles, 
where  Mm  is  the  mass  interior  to  Ra  as  determined  from  H(r)  in  the  equation  above. 


Using  lo  =  \/GMc/r  for  the  inner  disk,  the  tangential  velocities  V,  =  kVo{ri)  are 
determined.  The  radial  velocity  is  specified  by  assuming  that  the  mass  accretion  rate 
m  =  27rS(r)Vr(r)  is  constant  throughout  the  inner  disk.  Since  the  values  of  S,  V,  and 
Vr  at  the  boundary  are  determined  at  each  time  step,  the  inner  disk  must  be  reinitialized 
at  each  time  step  as  well. 

The  inner  disk  described  above  is  specifically  for  7  =  2;  for  other  values  of  7  an 
alternate  model  of  the  inner  disk  must  be  used.  The  second  inner  disk  that  is  used  is 
one  with  an  exponential  density  profile, 

S(r)  =  Soe-^/'-'.  (3.22) 

The  scale  length  is  found  from  the  linear  regression  used  to  estimate  T,{Ra),  and  the 
central  density  is  deduced  from  ^(-Ra)  and  the  scale  length,  r^.  Again,  as  a  fixed  number 
of  particles  is  used  to  model  this  inner  disk,  their  individual  masses  are  being  changed 
during  the  run,  and  as  in  the  first  inner  disk  described,  they  are  placed  on  concentric 
rings.  The  velocity  profile  for  the  inner  disk  is  found  from  assuming  radial  hydrostatic 


equilibrium  and  using  Vo  =  y/GMc/r  +  Ar,  the  parameter  A  being  estimated  at  Ra-  As 
in  the  previous  disk,  the  radial  velocity  profile  is  determined  by  assuming  a  constant 
accretion  rate  m  throughout  the  inner  disk. 

It  has  been  stated  above  for  both  of  the  inner  disks  that  the  particles  are  distributed  in 
concentric  rings.  I  now  wish  to  describe  more  carefully  the  algorithm  used  to  accomplish 
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this.  In  order  to  assure  a  continuous  particle  distribution  at  the  boundary  r  =  Ra, 
the  inner  disks  are  built  from  the  outside  in.  The  first  ring  radius  r\  is  the  radius 
at  which  the  interparticle  distance  (mp/S(ri))^'"  is  equal  to  2(Ra  -  ri),  and  is  found 
using  the  Newton-Raphson  method  and  the  appropriate  density  profile  (equation  3.17 
or  3.18).  Particles  placed  in  this  and  subsequent  rings  n,  will  describe  the  desired  mass 
distribution  subject  to  the  condition  that  the  mass  in  each  ring,  Z\m„,  is  equal  to  the  mass 
in  an  annulus,  centered  on  the  ring  radius  r„,  with  a  width  Ar„  equal  to  the  interparticle 
distance.  Hence,  for  the  first  ring,  the  mass  contained  within  Ari  =  (mp/S(ri))  ''  is 
equal  to  Ami  =  m{Ra)  -  rn{Ra  -  Ari).  [In  general  m{r)  will  signify  the  mass  within 
radius  r.]  The  number  of  particles  to  be  placed  in  the  ring  is  determined  by  the  mass  in 
the  annulus,  Ami,  and  the  particle  mass,  rup.  However,  since  the  number  of  particles 
Nn  placed  in  a  ring  must  be  an  integer,  and  Jlmn/nip  is  in  general  not  an  integer,  a 
small  adjustment  in  r„  and  Ar„  must  be  made.  For  the  first  and  subsequent  rings,  iV„  is 
found  by  rounding  Am„/mp  to  the  nearest  integer  value.  Then  the  mass  in  the  ring  is 
redetermined:  Am„  =  Nnrup.  For  the  first  ring  a  new  Ari  is  redetermined  by  finding 
the  radius  rj^  for  which  m{rM)  =  rn{Ra)  -  Ami,  using  the  Newton-Raphson  method 
and  the  appropriate  expression  for  m{rM),  and  then  setting  Ari  =  R^  —  r^.  Finally, 
ri  =  i?a  —  Ari/2.  For  the  remaining  rings  the  same  procedure  is  used  to  redetermine 
Ar„  from  the  new  Am„,  excepting  that,  instead  of  Ra,  ri  =  r„_i  -  Ar„_i/2  is  used. 
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For  clarity's  sake,  I  restate  the  algorithm  for  finding  the  radii  of  the  concentric  rings: 

1.  Using  the  Newton-Raphson  method,  find  r„  which  satisfies  the  condition 
2(r/;  -  r„)  =  (mp/X;(r„))^/",  where  r^  =  /?„  for  n  =  1,  but  ri  =  r„-i  -  Ar„_i/2 
otherwise. 

2.  Ar„  =  2{rL  -  r„) 

3.  Am„  =  m(ri)  -  m{rL  -  Ari) 

4.  Find  the  number  of  particles  in  ring  n,  A„,  by  rounding  Anin/mp  to  the  nearest 
integer  value. 

5.  Redetermine  the  mass  in  ring  n:  Am„  =  Nnrup. 

6.  Using  the  Newton-Raphson  method,  determine  the  radius  rjj/  for  which  m{r\i)  = 
m[ri)  -  Amn. 

7.  Set  Ar„  =  r£  -  r,v/. 

8.  Finally,  rn  -  ri  -  Arn/'2. 

9.  Proceed  to  next  ring. 

The  building  of  the  disk  is  discontinued  when  r^j  <  Ar„/2. 

In  order  to  use  the  above  algorithm,  the  expressions  for  the  mass  with  a  given  radius 
for  the  two  inner  disks  must  be  known.  For  the  inner  poly  tropic  Keplerian  disk: 

m{r)  =  ^(1  -  k'-)  (^  -  ^)  +  ^r-'^Ral  (3.23) 

where  k  here  is  V/Vo  and  shouldn't  be  confused  with  the  index.  The  expression  for 
m{r)  for  the  exponential  disk  is  given  above  in  equation  (3.7).  For  the  polytropic  disk 
the  above  expression  can  be  inverted  to  find  r{m),  the  radius  within  which  there  is  mass 
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777.  This  will  allow  us  to  circumvent  the  use  of  the  Newton-Raphson  method  in  step  6) 
above,  and  instead  use  the  expression: 

2m  T 
''^  ~  B  +  v/F-^  +4(7rS(/?a)  -  Bj-lRaW  ^^'^"^^ 

where  B  =  7rGMc{l  -  k'^)/K,  and  ?77r  =  rn{Ri)  -  Amk. 


CHAPTER  4 
SIMULATION  OF  TWO-DIMENSIONAL  DISKS 

Parameters 

To  gain  insight  into  the  general  behaviour  and  evolution  of  protostellar  disks,  a  suite 
of  models  of  accretion  disks  were  simulated.  Three  physical  parameters  were  varied: 
the  central  object  to  disk  mass  ratio,  Mc/Md,  the  ratio  of  specific  heats,  7,  and  the 
artificial  viscosity  parameter  a.  As  I  am  particularly  interested  in  the  early  stages  of  the 
evolution  of  protostellar  disks  when  the  disk  is  self-gravitating,  values  of  Mc/Mp  of  3 
and  1  were  chosen. 

The  second  physical  parameter  that  is  adjusted,  7,  affects  the  hydrodynamical  char- 
acter of  the  gas.  In  particular,  as  it  appears  as  an  exponent  in  the  polytropic  equation  of 
state,  7  determines  the  compressibility  of  the  gas.  While  in  three  dimensions  a  value  of 
7  <  4/3  is  unstable  to  gravitational  collapse,  in  two  dimensions  7  <  3/2  is  unstable  to 
collapse.  This  is  one  example  of  how  gravity  is  more  effective  in  two  dimensions  than 
in  three.  Values  of  7  =  2  and  5/3  were  chosen  for  modeling;  7  =  2  corresponds  to  a 
gas  with  two  degrees  of  freedom,  while  7  =  5/3  to  a  gas  with  three  degrees  of  free- 
dom. The  value  7  =  2  was  chosen  because  previous  theoretical  and  numerical  work  on 
two-dimensional  disks  have  used  this  value  (Papaloizou  and  Savonije,  1991).  However, 
though  convenient  for  solving  the  hydrodynamical  equations,  7  =  2  results  in  a  stiff  equa- 
tion of  state.  Therefore  7  =  5/3  was  also  used  in  the  simulations.  This  value  of  7  allows 
the  gas  to  be  more  compressible,  though  it  is  still  stable  against  gravitational  collapse. 

56 
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Of  particular  interest  in  this  study  is  tlie  effect  of  viscosity  on  the  evolution  of  self- 
gravitating  accretion  disks,  and  the  parameter  used  to  vary  the  effective  viscosity  in  SPH 
is  the  artificial  viscosity  parameter  q.  Values  of  q  —  1,  0.5,  0.25  were  chosen,  which 
were  shown  in  Chapter  2  to  correspond  roughly  to  effective  shear  viscosity  parameter 
values  of  Qi,  =  .1,  .05,  and  .02.  On  the  basis  of  time  scale  arguments  applied  to 
real  astrophysical  disks,  a,,  is  expected  to  be  less  than  0.1,  where  values  between  0.04 
and  0.002  are  most  commonly  argued  for.  As  mentioned  in  Chapter  1,  these  values  are 
much  greater  than  those  from  molecular  viscosity  alone.  Due  to  the  as  yet  unresolved 
question  of  what  mechanism  effects  this  anomalous  viscosity,  the  value  of  q^  represents 
the  greatest  unknown  in  the  physics  of  accretion  disks. 

Varying  the  three  parameters  Mc/Mf),  7,  and  a  as  described  above  gives  twelve 
possible  combinations,  all  of  which  are  modeled.  Table  1  summarizes  the  models 
discussed  in  this  chapter,  as  well  as  the  time  at  which  each  simulation  was  terminated, 
in  dynamical  times  (see  Chapter  3  for  definition  of  units).  All  of  the  Mc/Mj)  =  1  disks 
terminate  due  to  computational  errors  associated  with  adjusting  the  smoothing  length 
during  the  neighbor  searching  phase  of  a  time  step,  and  the  finite  size  of  the  arrays  in 
which  the  lists  of  neighbors  are  stored.  That  is,  the  program  has  difficulty  in  adjusting  the 
smoothing  length  so  that  particles  have  more  than  ten,  but  more  than  sixty,  neighbors. 
This  problem  arises  in  disks  in  which  an  extreme  density  gradient  borders  a  region 
where  the  surface  density,  and  hence  also  the  number  density  of  particles,  is  very  low. 
Such  conditions  arise  in  the  disks  with  a  mass  ratio  of  one.  In  contrast,  most  of  the 
Mc/Md  =  3  models  ran  to  the  specified  time  without  difficulty.    Their  simulations 
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were  terminated  after  they  had  run  for  a  time  comparable  with  the  MdMo  =  1  disks. 
Model  A3  is  the  sole  model  with  a  mass  ratio  of  three  that  ended  due  to  the  type  of 
difficulty  mentioned  above.  In  any  event,  the  lengths  of  all  the  simulations  were  sufficient 
to  observe  important  properties  of  accretion  disks,  which  are  noted  below  and  in  the 
following  chapter;  continuing  the  simulations  much  further,  after  a  significant  number  of 
particles  already  have  been  removed  due  to  accretion,  would  be  of  questionable  value. 

Table  4-1:  Models 


Model: 

Mc/Md 

7 

a 

Inner  Disk 

Tf 

Al 

3 

2 

0.25 

Keplerian 

33.10 

A2 

0.5 

" 

32.11 

A3 

1 

rt 

33.01 

A4 

3 

2 

0.5 

Exponential 

24.01 

Bl 

1 

2 

0.25 

Exponential 

38.81 

B2 

0.5 

38.51 

B3 

1 

31.01 

CI 

3 

5/3 

0.25 

Exponential 

32.61 

C2 

0.5 

29.97 

C3 

1 

29.55 

Dl 

1 

5/3 

0.25 

Exponential 

33.01 

D2 

0.5 

39.00 

D3 

1 

32.63 

While  the  model  parameters  discussed  above  describe  the  physical  state  of  the  initial 
conditions,  another  set  of  parameters  which  may  affect  the  simulations  is  that  of  the 
code  parameters,  which  determine  details  of  the  numerical  simulation  method.  These 
parameters  are  listed  in  Table  2-1,  with  their  nominal  values.    Ideally,  if  the  values 
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chosen  for  the  code  parameters  are  sufficient  to  yield  accurate  simulations,  the  resulting 
simulations  will  be  insensitive  to  variations  in  the  code  parameters.  To  test  whether 
the  simulations  are  accurate,  several  test  models  have  been  numerically  evolved,  each 
with  the  value  of  a  single  code  parameter  changed  from  its  nominal  value,  so  as  to 
yield  a  more  numerically  accurate  simulation.  If  the  nominal  value  is  sufficient,  then 
the  test  simulation  will  show  little  or  no  change  from  the  model  run  with  nominal  code 
parameters.  A  number  of  such  tests  are  done  with  model  D2  for  the  parameters  9,  C,  and 
N.  The  comparison  between  the  tests  and  model  D2  are  given  at  the  end  of  this  chapter. 

The  gravitational  smoothing  parameter,  e,  is  not  varied  for  testing,  because  its  range 
is  restricted  by  requiring  that  it  be  smaller  than  the  accretion  radius,  Ra,  and  that  it  must 
be  larger  than  the  local  inter-particle  separation.  This  last  condition  must  be  satisfied 
if  N  particles  are  to  behave  as  a  system  with  a  much  greater  number  of  particles,  or 
even  a  continuous  medium  (iV  ->  oo),  as  is  the  case  here.  Because  t  is  of  single  value, 
independent  of  the  local  number  density,  the  latter  condition  cannot  be  satisfied  in  the 
outer,  diffuse,  portions  of  the  disks.  The  local  inter-particle  separation  in  two  dimensions 
is  «~^/-,  with  n  representing  the  local  number  density.  An  average  inter-particle  distance 
is  defined  as  h~^^-  =  y/irRo/N,  which  is  equal  to  0.025  for  Rd  =  i  and  N  -  5131. 
The  condition  c  >  n"^/^  jg  satisfied  with  e  =  0.027,  but  s  <  n~^l-  for  r  >  0.587  when 
N  =  5131  and  r^  =  0.25.  When  N  is  increased  to  10093  particles  the  condition  fails 
for  r  >  0.757. 

The  other  restriction,  that  2e  <  Ra,  is  imposed  so  that  all  particles  experience 
a  Keplerian,   unsoftened,  gravitational  potential  from  the  central  object.     Therefore 
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increasing  s  is  possible  if  Ra  is  also  increased.    However,  this  is  not  desired,  as  the 
inner  region  around  the  central  particle,  which  is  not  hydrodynamically  modeled,  should 
be  a  small  percentage  of  the  disk. 

Evolution  of  Disks 
General  Features 

Since  the  evolution  of  the  models  is  terminated  at  different  times,  it  is  more  useful 
to  compare  the  evolution  of  the  models  at  a  time  that  all  the  models  attain.  In  Table 
4-2  are  tabulated  the  total  accreted  mass,  the  central  object  to  disk  mass  ratio,  and  the 
angular  momentum  (AM)  that  has  been  transported  beyond  the  initial  outer  radius  of  the 
disk,  after  twenty  eight  dynamical  times.  The  units  of  mass  and  angular  momentum  are 
the  dimensionless  units  described  in  the  previous  chapter. 

To  qualitatively  show  both  the  effect  of  the  viscosity  parameter  a  and  the  ratio  of 
specific  heats  7,  the  models  are  shown  after  ten  dynamical  times  in  Figures  4-1  and  4-3, 
and  after  thirty  dynamical  times  in  Figures  4-2  and  4-4.  For  both  the  Mc/Mq  =  1  and 
3  models,  increasing  the  viscosity  effectively  damps  the  amplitude  of  the  modes.  This 
is  even  more  noticeable  at  early  times,  where  viscosity  also  suppresses  the  growth  of 
the  modes.  Of  particular  of  interest  is  that  the  viscosity  has  suppressed  the  m=l  mode 
in  the  models  having  Mc/Md  =  1.  The  mode  is  weakly  visible  in  model  B3  in  Figure 
4-4,  but  not  visible  in  model  D3,  and  a  dominating  m=l  mode  remains  absent  in  this 
last  model  until  the  simulation  is  terminated  at  T=32.  This  later  model  represents  the 
one  exception  in  the  modal  evolution  of  the  Mc/Md  =  1  disks,  which  otherwise  become 
dominated  by  a  slowly  growing  m=l  mode.    This  mode  is  of  a  tidal  nature,  resulting 
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from  the  gravitational  interaction  between  the  massive  central  object  and  the  disk,  and 

has  been  predicted  by  others  (Savonije  et  al.,  1992). 

Table  4-2:  Models  at  T=28  dynamical  times 


Accreted 

Transported 

Models 

Q 

mass  (10"-) 

McIMd 

AM  (10-2) 

Al 

0.25 

3.504 

3.790 

2.501 

A2 

0.5 

2.851 

3.645 

2.923 

A3 

1.0 

2.042 

3.477 

2.562 

Bl 

0.25 

15.26 

1.985 

10.68 

B2 

0.5 

14.23 

1.895 

9.877 

B3 

1.0 

11.69 

1.697 

11.67 

CI 

0.25 

2.856 

3.646 

2.844 

C2 

0.5 

1.808 

3.430 

2.808 

C3 

1.0 

2.125 

3.493 

2.440 

Dl 

0.25 

16.34 

2.084 

14.15 

D2 

0.5 

13.47 

1.833 

9.461 

D3 

1.0 

7.466 

1.422 

8.323 

The  effects  of  varying  the  ratio  of  specific  heats  are  more  subtle.  At  early  times, 
when  the  modes  are  growing,  the  models  with  smaller  7  show  slightly  more  density 
contrast  between  arm  and  inter-arm  regions.  At  the  later  times,  such  as  those  shown  in 
the  Figures  4-3  and  4-4,  this  trend  is  not  apparent  in  the  a  —  0.25  and  0.5  disks,  and  is 
reversed  in  the  a  =  1  disks.  Another  effect  that  is  more  obvious  in  the  a  =  0.25  and 
0.5  disks  is  that  those  with  7  =  5/3  tend  to  show  greater  density  variations  along  the 
arms  of  the  non-axisymmetric  modes.  At  times  this  density  variability  will  develop  into 
clumping  in  the  outer  portions  of  the  arms,  such  as  that  seen  in  model  Dl. 
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A  more  detailed  description  of  the  evolution  of  the  modes,  and  of  the  mass  accretion 
observed  in  these  disks  are  given  in  the  next  two  sections.   In  the  Mc/Md  =  1  disks 
another  distinctive  feature  is  seen,  and  that  is  the  formation  of  small  satellites  in  the  outer 
portions  of  disks.  This  is  discussed  in  the  following  chapter. 

Modal  Evolution 

The  evolution  of  the  simulated  disks  is  typified  by  the  presence  of  many  transient 
modes.  In  none  of  the  Mc/Md  =  3  disks  does  a  single  mode  dominate  the  disk  for  more 
than  a  few  dynamical  times.    In  all  disks  the  growth  of  the  non-axisymmetric  modes 
follows  the  general  pattern  that  modes  with  higher  mode  number  show  faster  growth 
rates.    However,  as  the  amplitude  in  all  modes  increase,  the  modes  of  higher  mode 
number  will  peak  and  then  decrease,  while  the  modes  of  lower  mode  number  continue  to 
grow.  Hence,  as  the  amplitude  of  the  density  fluctuations  increases  during  the  early  part 
of  the  evolution,  different  modes  achieve  temporary  dominance.  The  maximum  amplitude 
is  attained  usually  by  an  m=2  or  m=3  mode.  When  the  maximum  power  in  a  mode  has 
diminished  it  will  usually  not  remain  suppressed,  but  will  later  increase  again  to  become 
the  mode  with  maximum  power.  In  other  words,  the  modes  will  initially  grow  at  different 
rates,  but  eventually  the  amplitude  of  all  the  modes  seem  to  fluctuate  at  about  the  same 
amplitude.  The  evolution  of  the  maximum  power  of  one  model  is  shown  in  Figure  2-6. 
The  same  behavior  is  initially  seen  in  the  Mc/Md  =  1  disks,  but  a  slowly  growing 
m=l  mode  eventually  dominates  most  of  these  disks,  with  one  exception.    Unlike  the 
other  models,  the  dominating  m=l  mode  is  not  a  spiral  wave,  but  instead  is  the  result 
of  the  central  object  and  disk  rotating  about  their  center  of  mass.  That  is,  the  "central" 
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object,  representing  the  star,  is  no  longer  centered  on  the  mass  distribution  of  the  system. 
Another  characteristic  of  the  modal  evolution  of  these  disks  is  that  an  m=2  mode  will 
dominate  before  this  m=l  mode  becomes  the  dominant  feature.  Figure  4-5  shows  a  plot 
of  the  maximum  power  reached  by  modes  1  through  4,  between  a  radius  of  0. 1  and  1 .0, 
in  the  simulation  of  model  B2. 

It  should  be  noted  that  characterizing  the  evolution  by  the  maximum  power  present 
in  each  mode  may  have  limitations.  Because  the  Fourier  analysis  was  done  on  the 
normalized  density,  the  outer  portions  of  the  disk  will  primarily  be  represented,  for  this 
part  of  the  disk  possesses  the  greatest  density  contrasts. 

This  transient  behavior,  as  well  as  the  number  of  modes  present,  does  not  allow  the 
frequencies  to  be  unambiguously  identified  with  a  particular  mode.  The  presence  of  many 
initial  transient  modes  is  not  surprising,  as  many  modes  will  be  excited  by  the  perturbation 
that  has  been  seeded  into  the  initial  conditions.  However,  the  persistence  of  this  transient 
behavior  in  a  dissipative  system  is  unexpected.  In  addition,  the  details  of  the  evolution 
of  the  modes  for  any  given  disk  seem  to  be  sensitive  to  initial  conditions,  in  the  sense 
that  a  change  in  a  computational  parameter,  such  as  the  tolerance  angle  or  the  number  of 
particles,  will  cause  the  disk's  evolution  to  diverge  in  detail  from  a  corresponding  model 
that  is  otherwise  the  same.  This  chaotic  behavior  brings  into  question  the  practicality  of 
describing  in  detail  the  complex  evolution  of  the  modes  that  are  observed,  though  general 
features  of  the  evolution  have  been  noted.  (This  same  sensitivity  to  initial  conditions  is 
seen  in  meteorology,  where  dissipation  also  is  present.) 


64 
This  behavior  can  be  explained  in  two  ways;  the  fluctuations  are  either  reflecting 
the  physical  behavior  of  such  a  system,  or  they  are  due  to  the  failure  of  the  numerical 
method.  If  the  behavior  is  physical  then  two  processes  may  be  occurring  either  separately, 
or  in  conjunction.  One  process  is  the  interaction  between  modes,  where  energy  is  being 
transferred  between  modes  continuously.  In  the  disks  that  are  modeled  here,  interaction 
between  the  modes  is  enhanced  because  of  the  proximity  of  the  corotation  of  a  mode  m 
with  the  outer  Lindblad  resonance  of  the  m  -  1  mode,  and  the  inner  Lindblad  resonance 
of  the  m+1  mode,  in  the  frequency  -  radius  domain.  In  Figure  4-6  the  location  of  the 
resonances  are  shown.  In  such  a  system  energy  is  easily  transferred  from  one  mode  to 
another.  The  other  possible  process  is  that  the  power  in  a  mode  is  fluctuating  due  to 
the  presence  of  two  modes  with  different  frequencies,  but  the  same  mode  number,  which 
would  result  in  the  oscillation  of  the  amplitude  of  that  mode. 

Alternatively,  the  cause  of  the  fluctuation  in  power  may  be  due  to  a  failure  of  the 
SPH  method.  An  example  would  be  if  the  method  could  not  describe  a  shock  front 
properly  once  it  had  developed  a  large  amplitude.  In  this  case  the  post-shock  oscillations 
could  destroy  a  wave  mode  that  has  developed  a  shock  front.  There  may  be  additional 
problems  in  the  outer  portions  of  the  disks  where  the  number  density  of  SPH  particles  can 
become  too  low  to  describe  regions  of  low  density.  It  is  in  this  part  of  the  disk  that  the 
highest  normalized  density  amplitudes  appear.  Gaps  in  the  particle  distribution  appear 
between  the  arms  of  the  non-axisymmetric  modes;  these  gaps  are  low  density  regions 
that  are  under-represented.  To  see  if  the  transient  character  of  the  modes  resulted  from 
such  problems,  models  were  run  with  10093  particles.  This  increased  the  resolution  of 
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the  method,  as  the  smoothing  length  h  is  inversely  proportional  to  the  square  root  of  the 
number  density.  While  the  under-represented  regions  of  the  disk  were  further  out  in  the 
disk  than  in  the  models  with  5130  particles,  the  same  transient  behavior  of  the  modes 
was  observed,  though  differing  in  detail.  This  suggests  that  the  transient  behaviour  of 
modes  is  an  inherent  effect  found  in  such  disks,  rather  than  being  a  numerical  effect. 

Accretion 

The  rate  of  accretion  onto  the  central  object  is  determined  by  the  rate  of  angular 
momentum  transport  effected  in  the  disk  by  shear  viscosity  and  the  non-axisymmetric 
modes.  In  most  of  the  models  simulated,  the  mass  accretion  rate  typically  begins  at  a 
large  value,  and  within  27r  dynamical  times  approaches  a  constant  rate,  which  is  more 
sensitive  to  the  viscosity  parameter  than  to  the  ratio  of  specific  heats.  In  some  cases  a 
constant  accretion  rate  is  immediately  realized  (models  A3  and  C3).  The  mass  accretion 
is  shown  in  Figures  4-7  through  4-1 1  for  all  models.  The  constant  accretion  rates  in  the 
models  were  measured  by  fitting  a  line  to  the  appropriate  section  of  the  mass  accretion 
curves,  as  shown  by  one  example  in  the  latter  figure.  Not  surprisingly,  the  models  with 
Mc/Md  =  1  show  higher  constant  accretion  rates  than  the  Mc/Md  =  3  disks.  Although 
it  is  not  clear  why  constant  accretion  rates  should  be  an  endemic  feature  of  accretion 
disks,  they  are  seen  to  some  degree  in  most  of  the  simulated  disks,  with  only  models 
Al  and  CI  showing  a  small  continual  decrease  of  their  accretion  rate  with  time.  For 
these  two  cases  the  accretion  rates  measured  are  the  asymptotic  accretion  rate  for  most 
of  the  simulations. 
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Interestingly,  though  a  constant  accretion  rate  is  seen  in  almost  all  models,  it  is  not 
necessarily  maintained  throughout  the  run;  in  some  cases  the  accretion  rates  change  to 
new  constant  values,  sometimes  with  almost  discontinuous  abruptness.  Also  worthy  of 
note  is  the  insensitivity  of  the  initial  accretion  rates  of  models  Dl  and  D2  to  viscosity 
(a  =  0.25  and  0.5),  as  the  mass  accretion  of  these  models  is  nearly  equal.  It  is  after  new 
constant  accretion  rates  are  re-established  that  the  rates  of  these  two  models  diverge.  This 
behavior  is  also  observed  in  models  CI  and  C2,  and  therefore  seems  to  be  characteristic  of 
the  Mc/Mq  —  1  models  with  lower  values  of  a.  With  the  exception  of  model  D3,  all  of 
the  Mc/Md  =  1  models  show  at  least  one  accretion  rate  shift,  as  well  as  the  Mc/Md  =  3 
models  A3  and  C3,  which  both  have  a  viscosity  parameter  equal  to  one.  Two  models 
show  a  second  accretion  rate  change:  models  A3  and  Dl.  For  the  Mc/Mj)  =  1  models, 
the  first  accretion  rate  change  takes  place  at  a  transition  point  in  the  modal  evolution  of 
the  disk.  The  maximum  power  in  the  m=2  mode  peaks  preceding  the  change  in  accretion 
rate,  and  the  m=l  mode  becomes  the  dominant  mode  in  the  disk.  The  second  accretion 
rate  change  seen  in  model  Dl  takes  place  when  the  power  in  all  modes  with  m  >  1 
abruptly  falls  to  0.2,  one  third  the  value  of  the  m=l  mode. 

The  exception  to  this  behavior  seen  in  the  Mc/Md  =  1  models  is  model  D3,  which 
does  not  develop  a  dominant  m=l  mode.  In  this  model  the  accretion  rate  changes  very 
slowly  until  a  constant  accretion  rate  is  established.  Unlike  the  Mc/Md  —  1  models,  the 
constant  accretion  rate  changes  observed  in  models  A3  and  C3  are  not  clearly  matched 
with  identifiable  events  in  their  modal  evolution.  In  Table  3  the  accretion  rates,  and  the 
times  that  they  are  attained,  are  given  for  all  of  the  models  in  dimensionless  units.  To 
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convert  the  accretion  rates  to  physical  units,  multiply  the  rates  by  the  conversion  factor 
[Mt/Td),  the  total  mass  divided  by  the  dynamical  time  in  the  desired  units.  For  instance, 
using  Mj  =  IA/0  and  the  dynamical  time  Tq  =  159  years,  the  accretion  rates  are  found 
to  range  between  2.36  x  lO~^A/0/yr  and  4.31  x  10~^A/©/yr. 

Table  4-3:  Accretion  Rates  (x   10~-^) 
Model         m\  t\  m-i  (>  rhi  ti 


0.375  20 


Al 

1.00 

NA 

A2 

0.813 

8 

A3 

1.13 

0 

0.688 

8 

A4 

0.670 

10 

Bl 

3.88 

7 

6.11 

18 

B2 

4.00 

7 

5.00 

20 

B3 

3.00 

9 

7.32 

22.5 

CI 

0.813 

NA 

C2 

0.531 

7 

C3 

0.875 

0 

0.375 

20.5 

Dl 

4.25 

6 

6.86 

18 

D2 

4.51 

4 

3.05 

26 

D3 

2.13 

17 

4.63  27 


More  surprising  is  the  dependence  of  the  mass  accretion  on  viscosity,  for  the  mass 
accretion  increases  as  a  decreases.  This  stated  dependence  is  evident  in  Figures  4-7 
through  4-10,  though  it  is  not  established  in  the  Mc/Mo  =  1  disks  with  lower  viscosity 
parameter  values  until  the  constant  accretion  rate  changes.  The  inverse  dependence  of 
mass  accretion  upon  shear  viscosity  is  reflected  in  the  mass  accretion  rates,  which  are 
plotted  in  Figures  4-12  and  4-13.  For  the  Mc/Md  =  3  models  the  trend  is  established 
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after  the  secondary  accretion  rates  have  been  attained  in  the  q  =  1  disks,  which  are  the 
rates  that  coincide  temporally  with  the  mass  accretion  rates  observed  in  the  models  with 
smaller  viscosity  parameters.  It  is  also  the  secondary  accretion  rates  in  the  Mc/Mq  =  1 
models  that  show  the  same  trend  with  shear  viscosity,  with  the  exception  of  the  secondary 
accretion  rate  of  model  B3. 

This  counter  intuitive  relationship  between  viscosity  and  mass  accretion  occurs 
due  to  the  combined  actions  of  the  global  non-axisymmetric  modes  and  local  viscous 
processes,  which  are  not  independent  of  one  another.  When  both  are  present  the  viscosity 
damps  the  more  efficient  mechanism  of  angular  momentum  transport  provided  by  the 
non-axisymmetric  modes.  The  numerical  experiments  show  that  lower  effective  shear 
viscosity  allows  the  non-axisymmetric  modes  to  attain  greater  strength,  which  in  turn 
become  more  effective  at  transporting  angular  momentum.  This  damping  action  of  the 
viscosity  is  not  only  qualitatively  apparent,  but  is  also  evidenced  by  the  rms  amplitudes 
of  the  density  fluctuations. 

In  all  the  models,  the  total  rms  amplitude  of  the  normalized  density  initially  increases 
exponentially  with  time.  Most  models  then  undergo  a  period  of  linear  growth  until  a 
saturation  level  is  reached  by  the  model;  model  D3  attains  a  saturation  level  immediately 
after  the  initial  exponential  growth.  Two  models,  Dl  and  D3,  also  show  a  second 
saturation  level  being  attained  later  in  the  simulation.  In  addition  to  this  general  behavior 
of  the  normalized  amplitudes,  erratic  fluctuations  in  its  magnitude  are  apparent  that  take 
place  on  a  time  scale  of  about  two  dynamical  times.  The  fluctuations  grow  in  amplitude 
until  the  saturation  level  is  reached,  and  are  not  obviously  present  until  the  period  of 
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linear  growth  begins.   The  shear  viscosity  suppresses  the  rms  amplitude  of  the  density 
fluctuations,  causing  lower  saturation  levels  to  be  attained.  Also,  the  viscosity  generally 
enhances  the  rate  of  the  initial  exponential  growth. 

Table  4-A:  Normalized  density  ampliUide  growth  rates  and  saturation  levels. 


Model 

Viscosity  (q) 

Growth  Rate 

Growth  Rate 

Saturation 

(at  R  = 

:  0.55) 

(atR=  1) 

level(s) 

Al 

0.25 

0.7 

1.7 

0.7 

A2 

0.5 

1.3 

1.8 

0.55 

A3 

1 

1.7 

2.1 

0.5 

A4 

0.5 

1.3 

1.8 

0.5 

Bl 

0.25 

1.1 

1.5 

1.1 

B2 

0.5 

0.9 

1.5 

0.9 

B3 

1 

1.4 

2.1 

0.8 

CI 

0.25 

0.7 

2.0 

0.9 

C2 

0.5 

0.9 

2.1 

0.8 

C3 

1 

1.5 

2.6 

Not  attained 
«0.6) 

Dl 

0.25 

1.0 

1.8 

0.65 

D2 

0.5 

1.0 

2.2 

1.2  (0.7) 

D3 

1 

1.2 

3.0 

0.3  (0.45) 

The  growth  rates  and  saturation  levels  of  the  rms  amplitude  of  the  normalized  density 
fluctuations  also  vary  with  radius.  The  saturation  level  of  the  rms  amplitude  increases 
with  radius,  as  do  the  growth  rates.  Table  4  shows  the  growth  rates  for  the  various 
models  at  the  radial  distances  of  0.55  and  1.0  from  the  center  of  mass  of  the  system.  The 
saturation  level  given  corresponds  to  the  smaller  radius  of  0.55. 
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The  method  of  treating  the  central  region  and  accretion  in  the  hydrodynamic  code 
was  intended  to  let  the  properties  of  the  disk  drive  accretion,  rather  than  be  determined 
by  the  imposed  inner  boundary  condition  around  the  central  object.  To  test  the  degree  to 
which  I  am  successful,  models  were  run  with  two  different  inner  disks  (models  A2  and 
A4),  and  another  with  a  larger  Ra  (model  A5).  Both  types  of  inner  disks,  an  exponential 
disk  and  a  massless  Keplerian  disk,  provide  pressure  support  at  the  inner  boundary  by 
maintaining  a  continuous  surface  density  and  velocity  field  across  the  boundary  (see 
Chapter  3  for  further  details).  Models  A2  and  A4  are  identical  except  for  the  treatment 
of  the  inner  region,  and  the  mass  accretion  in  the  two  models  is  nearly  the  same  (see 
Figure  4-11).  However,  since  the  massless  Keplerian  disk  results  in  the  density  gradient 
being  discontinuous  at  the  boundary,  the  inner  exponential  disk  was  preferred.  To  what 
degree  the  size  of  Ra  alone  influences  accretion  is  tested  by  model  A5,  which  is  identical 
to  model  A4  excepting  the  size  of  the  inner  region.    The  value  of  Ra  for  model  A5, 
0.0635,  deviates  from  the  nominal  value  of  0.0544.  As  can  be  seen  in  Figure  4-11,  the 
size  of  the  inner  accretion  region  does  not  significantly  affect  the  mass  accretion. 

The  initialization  of  an  encounter  model  is  described  in  chapter  3,  which  includes  an 
encountering  particle  with  a  mass  of  0.5,  and  a  disk  that  is  otherwise  equivalent  to  model 
D2.  In  the  resulting  simulation  it  is  found  that  the  encounter  takes  place  approximately 
after  ten  dynamical  times.  The  time  sequence  of  this  encounter  is  shown  in  the  following 
chapter,  in  Figures  5-9  through  5-12.  Beside  robbing  a  significant  fraction  of  mass  from 
the  disk,  the  encountering  particle  also  greatly  enhances  the  mass  accretion  onto  the 
central  object.   This  is  shown  in  Figure  4-14. 
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Tests  of  Code  Parameters 

As  discussed  at  the  beginning  of  this  chapter,  models  with  differing  values  of  code 
parameters,  but  equivalent  model  parameters,  should  be  compared  to  confirm  that  the 
choice  of  code  parameters  yield  consistent  results.  Since  it  was  impractical  to  run  such  a 
series  of  tests  for  all  combinations  of  the  physical  parameters,  a  single  model  was  chosen: 
model  D2.  The  test  models  are  designated  Tl,  T2,  and  T3.  In  model  Tl  the  tolerance 
angle,  6,  is  given  a  value  of  0.5,  resulting  in  a  gravitational  approximation  closer  to  a 
direct  summation  of  the  gravitational  terms  due  to  A'  particles.  In  model  T2  the  Courant 
parameter,  C,  is  equal  to  0.2,  resulting  in  smaller  integration  time  steps.  In  model  T3 
the  number  of  particles  used  in  the  simulation  is  increased  to  10093  particles.  The  mass 
accretion  of  these  three  test  models  are  shown  with  the  mass  accretion  of  model  D2  in 
Figure  4-15. 

Model  Tl,  with  a  smaller  tolerance  angle  than  that  of  D2,  is  nearly  equivalent  to 
model  D2,  indicating  that  the  gravitational  forces  are  being  calculated  to  a  sufficient 
degree  of  accuracy  with  0  =  0.7.  Model  T2  initially  has  the  same  mass  accretion  as  D2, 
but  then  deviates  after  twenty  dynamical  times.  This  may  indicate  that  the  hydrodynamic 
calculations  require  smaller  time  steps  to  yield  sufficiently  accurate  results. 

Model  T3,  which  possesses  10093  particles,  differs  most  dramatically  from  model 
D2.  However,  these  two  models  are  not  physically  equivalent  for  several  reasons.  By 
increasing  the  number  of  particles  by  nearly  a  factor  of  two  the  local  smoothing  length  is 
decreased  by  approximately  a  factor  of  2"^'^.  This  effectively  changes  the  local  viscosity 
of  the  disk.  An  additional  difference  in  model  D2  and  T3  is  also  seen  when  the  modal 
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evolution  of  model  T3  is  inspected:  a  m=l  mode  does  not  eventually  dominate  the  disk 
of  model  T3  as  it  does  model  D2.  This  doubtless  accounts  for  the  smaller  mass  accretion 
rate  in  model  T3  in  spite  of  the  fact  that,  with  a  smaller  smoothing  lengths,  the  effective 
local  shear  viscosity  is  smaller  than  in  model  D2.  As  mentioned  above,  weaker  shear 
viscosity  typically  leads  to  larger  accretion  rates.  The  reason  that  model  T3  does  not 
develope  a  dominating  m=l  mode  is  most  likely  due  to  the  fact  that  its  initial  density 
perturbation  also  differs  from  that  of  model  D2.  This  is  because  the  density  perturbation 
was  initially  seeded  into  the  disk  by  displacing  the  particles  from  the  positions  required 
to  describe  a  smooth  exponential  disk.  These  displacements  are  random  in  direction  and 
Gaussian  in  magnitude,  with  a  standard  deviation  that  is  a  fraction  of  the  local  interparticle 
spacing.  Because  model  T3  has  a  smaller  interparticle  spacing  than  model  D2  the  initial 
noise  in  density  in  the  two  models  are  not  the  same.  Hence,  as  models  T3  and  D2  are 
not  equivalent  physically,  these  two  models  can  not  be  directly  compared. 
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Figure  4-1:  Particle  distribution  of  Mc/Md  =  3  models  at  Time  =  10.0  dynamical  times. 
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Figure  4-2:  Particle  distribution  of  Mc/Mo  =  3  models  at  Time  =  29.5  dynamical  times. 
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Figure  4-3:  Particle  distribution  of  Mc/Md  =  1  models  at  Time  =  10.0  dynamical  times. 
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Figure  4-4:  Particle  distribution  of  Mc/Md  =  1  models  at  Time  =  30.0  dynamical  times. 
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Figure  4-5:  Maximum  power  in  modes  1  through  4  for  model  B2. 


78 


15 1 1 1 1 1 — ^^ r 


10 


u 

c 

V 

3 

cr 
t) 


3 
00 

c 


I  I  I  I  I 1 u 


I         I I i_ 


_1 1 L_ 


0.2 


0.4  0.6 

radius 


0.8 


Figure  4-6:  Resonances  in  an  accretion  disk  with  Mc/Md  —  3.  Solid  lines 

correspond  to  the  corotation  resonance,  the  dotted  lines  to  the  Inner 
Lindblad  resonance,  and  the  dashed  lines  to  the  Outer  Lindblad  resonance. 
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Figure  4-7:  Mass  accretion,  as  a  fraction  of  initial  disk  mass,  for  models  Al  through  A3. 
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Figure  4-8:  Mass  accretion,  as  a  fraction  of  initial  disk  mass,  for  B  models. 
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Figure  4-9:  Mass  accretion,  as  a  fraction  of  initial  disk  mass,  for  C  models. 
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Figure  4-10:  Mass  accretion,  as  a  fraction  of  initial  disk  mass,  for  D  models. 
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Figure  4-11:  Mass  accretion  in  models  A2,  A4,  and  A5.  as  a  fraction  of  the  initial  disk  mass. 
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Figure  4-12:  Constant  mass  accretion  rates  for  Mc/Mq  =  3  accretion  disks. 
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Figure  4-13:  Constant  mass  accretion  rates  for  Mc/Mp  =  1  accretion  disks. 
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Figure  4-14:  Mass  accretion  of  the  encounter  model  (solid  line) 
compared  to  the  mass  accretion  of  model  D2  (dotted  line). 
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Figure  4-15:  Mass  accretion,  as  a  fraction  of  initial  disk 
mass,  for  model  D2  is  shown  with  three  test  models. 


CHAPTER  5 
FORMATION  OF  SATELLITES 


The  greatest  difference  between  disks  with  higher  and  lower  star  to  disk  mass  ratios 
is  that  all  disks  that  develop  a  dominating  m=l  mode  also  form  satellites.  This  includes 
all  disks  with  Mc/Md  =  L  with  the  exception  of  model  D3.  By  way  of  example,  the 
later  evolutionary  sequence  of  model  D2  is  shown  in  Figure  5-1  and  Figure  5-2.  Figure 
5-3  shows  the  final  configuration  of  the  disk,  with  the  path  of  the  satellite  shown  since 
its  formation.  The  satellite  forms  from  a  clump  of  gas  that  is  recognizable  as  a  distinct 
structure  at  time  =  25.  At  this  time  it  is  part  of  a  spiral  arm  of  a  m=l  mode  that  extends 
to  large  radii.  The  mass  in  the  initial  clump  of  gas  is  O.OISMt,  and  at  time  =  39  the 
satellite  has  a  mass  of  OMSMj.  Also,  as  the  mass  of  the  satellite  increases,  and  the 
combined  mass  of  the  star  and  the  disk  interior  to  the  companion  decreases,  their  mean 
separation  decreases.  A  closer  view  of  the  satellite  is  shown  in  Figure  5-4,  which  also 
shows  its  radial  density  profile. 

Other  models  form  multiple  satellites,  which  can  interact  with  one  another.  Table  2 
provides  an  overview  of  the  formation  and  evolution  of  the  satellites,  giving  the  initial 
separation  Rj  between  the  mass  and  the  central  object  -  disk  center  of  mass,  the  initial 
mass  Mi,  the  time  of  formation  Tj,  the  final  separation  Rf,  and  the  final  mass  of  the 
satellite,  Mf.  The  final  time,  Tf,  corresponds  to  either  the  end  of  the  simulation,  or  to 
when  the  satellite  was  destroyed. 
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Table  5-1:  Satellites 


*  Indicated  satellites  are  reabsorbed  into  the  disk. 


Orbital  Evolution 


Model 

Satellite 

R, 

Mi 

(xlO-2) 

Ti 

Rf 

Mf 
(xlO-2) 

Tf 

Bl 

1 

1.96 

0.448 

31.5 

3.25 

0.536 

38.8 

2 

1.57 

0.409 

22.5 

4.72 

0.692 

38.8 

3 

2.01 

0.370 

23.0 

4.57 

0.419 

38.8 

B2 

1 

2.23 

0.546 

24.0 

3.72 

1.277 

38.5 

2 

1.68 

0.975 

24.0 

0.81 

4.045 

37.5* 

B3 

1 

1.33 

1.374 

21.0 

1.48 

4.776 

31.0 

2 

1.41 

0.760 

24.0 

2.26 

1.72 

31.0 

Dl 

1 

1.21 

0.770 

18.5 

2.31 

1.920 

33.0 

2 

1.17 

1.150 

17.5 

0.98 

2.174 

33.0 

3 

1.30 

0.741 

22.0 

1.65 

0.955 

33.0 

4 

1.17 

1.053 

19.0 

0.67 

1.803 

24.5* 

D2 

1 

1.50 

1.257 

25.0 

1.24 

2.797 

39.0 

In  the  absence  of  close  encounters  with  other  satellites,  the  orbital  evolution  can  be 
understood  by  considering  the  simpler  system  of  two  point  masses  in  circular  motion 
about  a  common  center  of  mass.  In  such  a  two  body  system  the  separation  of  the  two 
masses  is  determined  by  the  masses  and  the  orbital  angular  momentum,  given  explicitly  by 

L2        m 
"=7r; -I^  (5.1) 

where  L  is  the  orbital  angular  momentum  about  the  center  of  mass,  and  m  =  mj  +  m2 
is  the  total  mass.    The  above  equation  shows  how  the  equivalent  separation  between 
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two  bodies  can  decrease,  assuming  they  remain  on  circular  orbits.  If  the  total  mass 
and  orbital  angular  momentum  remain  constant,  and  mass  is  transferred  from  the  more 
massive  body  (the  primary),  mi,  to  its  less  massive  companion  (the  secondary),  1712, 
then  the  separation  will  decrease  as  iKmim^)".  The  separation  will  also  decrease  if 
the  orbital  angular  momentum  decreases.  A  change  in  the  orbital  angular  momentum 
can  occur  by  a  variety  of  mechanisms:  a)  external  torques  on  the  system,  such  as  an 
outer  satellite,  b)  internal  torques,  which  can  transfer  orbital  angular  momentum  into, 
or  out  of,  the  spin  angular  momentum  associated  with  an  extended  asymmetrical  mass 
distribution  about  one  of  the  bodies,  c)  mass  loss  from  the  system,  which  will  carry  away 
orbital  angular  momentum  with  it,  and  conversely,  d)  mass  accretion  onto  the  system. 
While  mass  loss  from  the  system  decreases  the  orbital  angular  momentum,  it  may  cause 
the  separation  to  increase.  From  the  above  equation,  and  assuming  that  the  mass  loss 
process  does  not  alter  the  velocities  of  the  two  masses,  and  that  the  secondary's  mass 
remains  constant,  the  condition  for  increasing  the  separation  with  mass  loss  from  the 
primary  is  milm-i  >  \{l  +  vTt)  ~  2.56. 

To  understand  the  orbital  evolution  of  the  formed  satellites,  the  above  model  is  applied 
as  an  approximation.  The  mass  of  each  of  the  satellites,  and  the  mass  within  the  minimum 
separation  between  the  satellite  and  central  object,  is  found.  These  masses  are  taken  to 
be  the  masses  of  the  primary  and  secondary  respectively.  Hence,  the  primary  mass  mi 
consists  of  the  central  object  and  the  mass  in  the  disk,  as  well  as  any  inner  satellites,  that 
lie  within  the  minimum  separation.  In  addition,  the  orbital  angular  momentum  associated 
with  these  two  masses,  with  respect  to  their  center  of  mass,  is  found.  Using  the  above 
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formula  (equation  5.1),  the  equivalent  separation,  a,  of  a  system  in  circular  motion,  with 
the  same  orbital  angular  momentum  and  masses,  was  found.  Often  the  formed  satellites 
exhibit  substantial  eccentricity,  which  results  in  the  actual  separation  oscillating  about  the 
equivalent  separation.  All  of  the  above  mechanisms  for  altering  the  separation  between 
the  disk-star  and  the  satellite  are  observed  to  some  degree.  Mass  is  commonly  lost 
from  the  disk  as  mass  is  transported  outward  with  angular  momentum.  As  the  primary 
mass  of  the  disk-star  far  exceeds  the  mass  of  the  satellite,  this  mass  loss  results  in  the 
separation  increasing,  if  the  mass  of  the  satellite  remains  constant.  Interaction  with  the 
non-axisymmetric  modes  of  the  disk,  which  act  as  a  reservoir  of  angular  momentum, 
is  also  important.  Though  this  model  is  an  approximation  it  gives  sufficient  insight  to 
understand  the  orbital  evolution  of  the  satellites. 

In  the  case  of  model  D2,  where  only  a  single  satellite  is  present,  the  decrease  in  the 
separation  is  primarily  due  to  a  change  in  the  mass  ratio  of  the  primary  and  the  satellite.  In 
model  B2  (Figure  5-5)  two  satellites  form  almost  simultaneously  at  the  same  polar  angle. 
The  outer  satellite  then  spirals  outward,  while  the  inner  satellite  spirals  inward.  Initially 
this  can  be  understood  as  resulting  from  the  interaction  of  the  two  satellites.  However, 
while  the  outer  satellite's  orbital  angular  momentum  rises  sharply  soon  after  formation, 
a  comparable  drop  in  the  inner  satellite's  orbital  angular  momentum  is  not  observed;  the 
orbital  angular  momentum  of  the  inner  satellite  initially  remains  constant.  Therefore  any 
angular  momentum  transfered  from  the  inner  to  the  outer  satellite  must  be  offset  by  an 
equal  transfer  of  angular  momentum  from  the  disk  to  the  inner  satellite,  or  else  angular 
momentum  is  being  transfered  from  the  disk  directly  to  the  outer  satellite.    Later  the 
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angular  momentum  of  the  inner  satellite  increases  dramatically,  due  to  interaction  with 
the  non-axisymmetric  modes  in  the  disk.  However,  this  increase  of  the  inner  satellite's 
orbital  angular  momentum  is  not  enough  to  counter  the  effects  of  mass  transfer  from  the 
disk  to  the  satellite,  and  it  continues  to  spiral  inward  to  eventually  be  reabsorbed  into 
the  disk.  At  the  same  time  the  outer  satellite  continues  to  slowly  gain  orbital  angular 
momentum,  even  while  its  own  mass,  and  the  mass  interior  to  it  remains  constant.  The 
source  of  this  orbital  angular  momentum  must  be  from  the  disk  and  satellite  interior  to 
it,  as  no  external  torques  are  present. 

In  model  B3  two  satellites  also  form  (Figure  5-6).  However,  due  to  a  different 
configuration  of  the  satellites,  they  do  not  strongly  interact.  The  innermost  satellite 
remains  at  nearly  a  constant  separation  for  four  dynamical  times,  then  gently  increases 
to  its  maximum  peak  value  at  T=28.5,  and  then  diminishes  to  its  final  value.  Though  the 
separation  does  not  vary  greatly,  the  mass  and  orbital  angular  momentum  show  abrupt 
increases,  making  "steps"  to  higher  values.  These  steps  are  correlated  with  collisions  of 
the  satellite  with  arms  of  a  mode  that  extends  out  to  the  orbital  radius  of  the  satellite  and 
overtakes  it.  Between  these  collisions  the  separation  between  the  satellite  and  primary 
continues  to  decrease  due  to  mass  loss  from  the  primary.  In  contrast  to  the  inner  satellite, 
the  outer  satellite's  separation  grows  continuously  after  its  formation.  Its  mass  and  orbital 
angular  momentum  also  remain  constant  for  four  dynamical  times,  after  which  both 
increase  as  it  encounters  material  moving  outward  from  the  disk.  The  continual  change 
in  the  separation  is  again  due  to  the  decrease  of  the  primary's  mass. 
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In  model  Bl  three  satellites  form  (Figure  5-7).  and  all  move  outward  to  greater 
radii.  Soon  after  their  formation,  the  three  satellites'  masses  remain  constant.  The  orbital 
angular  momentum  of  the  first  two  satellites  increase  nearly  linearly  with  time  during 
the  simulation,  while  the  outermost  satellite's  orbital  angular  momentum  remains  nearly 
constant  during  its  trajectory.  Again,  the  increase  in  separation  is  due  largely  to  the 
primary  mass,  that  corresponds  to  each  satellite,  decreasing  in  magnitude.  However,  the 
net  increase  in  orbital  angular  momentum  in  this  system  of  bodies,  despite  the  loss  of 
mass  to  the  primary,  is  clear  evidence  of  angular  momentum  being  transferred  from  the 
disk,  which  has  a  strong  m=l  mode,  to  the  satellites. 

Model  Dl,  which  I  have  left  for  last,  is  the  most  complicated,  as  four  satellites 
are  formed  (Figure  5-8).  The  first  two  satellites  are  clearly  self-gravitating  and  distinct 
structures.  A  third  is  much  more  diffuse,  but  remains  as  a  recognizably  distinct  structure 
for  eleven  dynamical  times,  perhaps  with  the  aid  of  the  first  two  satellites,  which  are  at 
larger  radii.  The  fourth  satellite  is  short  lived,  encountering  the  first  satellite  soon  after 
its  own  formation,  and  is  consequently  reabsorbed  into  the  disk.  Until  just  previous  to 
this  collision  the  first  satellite's  mass  and  angular  momentum  are  constant  with  time,  but 
both  increase  abruptly  during  the  collision.  Afterward,  the  orbital  angular  momentum 
of  the  first  satellite  increases  linearly  with  time,  presumably  interacting  further  with  the 
fourth  satellite,  as  well  as  with  the  m=l  mode  of  the  disk.  The  mass  of  the  second 
satellite  remains  constant  with  time  soon  after  its  formation,  while  the  orbital  angular 
momentum  initially  increases,  then  levels,  and  gradually  decreases.  The  separation  also 
increases,  then  decreases.  This  is  due  not  only  to  ellipticity  but  also  the  loss  of  orbital 
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angular  momentum,  as  the  equivalent  separation  of  a  system  with  circular  rotation  also 
decreases.  Obviously  the  change  in  orbital  angular  momentum  is  due  to  interaction  with 
other  components  in  this  system,  though  it  is  not  clear  what  the  interactions  are.  The 
orbital  evolution  of  the  third  satellite  is  the  simplest;  its  mass,  orbital  angular  momentum, 
and  equivalent  separation  all  remain  constant,  while  the  real  separation  fluctuates  about 
the  equivalent  separation  due  to  the  ellipticity  of  its  orbit. 

Formation  Conditions 

So  far  I  have  only  described  the  orbital  evolution  of  the  satellites  after  their  formation, 
but  have  not  described  the  formation  of  any  of  the  satellites.  In  general,  from  a  simple 
visual  inspection  of  the  models,  several  formation  processes  seem  to  be  present.  One  is 
the  gradual  accumulation  of  diffuse  material  well  outside  the  denser,  inner,  portions  of 
the  disk.  This  process  may  be  encouraged  by  previously  formed  satellites  at  larger  radii. 
Examples  of  this  are  satellites  Bl-1,  Bl-2.  and  Dl-3.  The  second  process  involves 
outer  arm  fragments  that  have  become  detached  from  the  rest  of  the  arm  of  a  non- 
axisymmetric  mode  extending  into  the  diffuse  region  around  the  disk.  After  becoming 
detached  most  of  these  fragments  will  dissipate,  be  reabsorbed  by  the  disk,  or  encounter 
a  satellite.  However  a  few  will  gradually  accumulate  mass  and  contract,  or  collide  with 
another  fragment,  to  form  a  self-gravitating  clump.  This  formation  process  seems  to  be 
responsible  for  most  of  the  satellites.  The  third  process  is  very  like  the  second,  where 
clumping  within  an  arm  of  a  mode  occurs  until  the  self-gravitating  satellite  forms  and 
continues  on  its  own  trajectory,  separating  from  the  arm  in  which  it  was  bom  in.  This  is 
the  case  for  the  first  satellite  discussed,  the  one  observed  to  form  in  model  D2.  Once  the 
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satellites  have  formed  they  do  not  continue  to  gruvitationally  collapse,  but  reach  a  near 

equilibrium  because  of  the  form  of  the  equation  of  state;  a  polytropic  equation  of  state, 

with  a  ratio  of  specific  heats  greater  than  1.5,  is  stable  against  gravitational  collapse. 

The  identification  of  the  satellites  was  done  by  mere  inspection  at  later  times,  and 

each  traced  back  in  time  for  as  long  as  it  could  be  visually  identified  as  distinct  from  its 

surroundings.  To  test  whether  the  satellites  are  indeed  self-gravitating,  I  compared  their 

mass  with  the  Jeans  Mass,  which  is  the  minimum  mass  necessary,  within  a  specified  area, 

to  be  self-gravitating.  That  the  satellites  are  self-gravitating  is  already  bom  out  by  their 

remaining  coherent  structures  for  many  dynamical  times.  However,  I  wished  to  identify  at 

what  time  each  satellite  initially  becomes  a  self-gravitating  entity.  An  expression  for  the 

Jeans  Mass  appropriate  for  two  dimensions  is  derived  below  from  the  two-dimensional 

virial  theorem,  whose  derivation  immediately  follows. 

In  two  dimensions  the  radial  component  of  the  hydrodynamic  equation  of  motion  is 

d      ^,  d\,.  I  dp      dip 

with  the  assumption  of  axisymmetry.  In  the  Lagrangian  formulation  we  can  rewrite  the 
above  equation  as 


'^  dt'^  Or       ~'  dr' 


(5.3) 


Multiplying  by  r  and  integrating  with  respect  to  dr  =  'Inrdr  we  have 

9''^j^_        fJP,-        f^J'^ 


I^^P^-I^P^-h^t"- 


Given 


dh  _  la-(r-) 

'a<2  ~  2    dt^ 


l./5r 

■iKdt 


(5.5) 
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the  left  hand  side  of  the  previous  equation  can  be  rewritten  as 

The  first  integral  is  equal  to  kl,  one  half  the  second  order  derivative  of  the  moment  of 
inertia  with  respect  to  time,  and  the  second  integral  is  equal  to  2Kb,  two  times  the  bulk 
kinetic  energy  associated  with  radial  oscillations. 

Considering  now  the  right  hand  side  of  equation  (5.4),  the  first  integral  can  be 
simplified  by  integrating  by  parts: 

-   /  r-^dr  =  -Ik  /  r'-dp  =  -27n-'- P^  +  2tt  I  p2rdr,  (5.7) 

where  P,  is  the  surface  pressure.   Also,  by  writing 

27r  I  p2rdr  =  2  f  pdr  =  2PA,  (5.8) 

where  A  is  the  total  area  considered,  and  P  is  taken  as  a  average  pressure,  the  first 
integral  on  the  right  hand  side  is  taken  as  being  equal  to  -P3A  +  2PA.  Taking  the 
second  integral  on  the  right  hand  side  of  equation  (5.4),  and  integrating  by  parts  renders 

-   f  27rSr2^Jr  =  -2ivr-Ey  +  2  /  '^^dr  +   I  r^^dr.  (5.9) 

The  first  term  on  the  right  hand  side,  the  surface  term,  is  equal  to  zero,  while  the  second 

term  is  equal  to  four  times  W,  the  gravitational  potential  energy  of  the  configuration,  using 

^  J  ipTfdr  =  W  (Binney  &  Tremaine,  1987).   Putting  all  the  respective  parts  together, 

the  full  two-dimensional  virial  theorem  is 

R 

-/  =  2Kb  -  PsA  +  2PA  +  \W  +  /  r—^dr.  (5.10) 

2  J      or 

0 
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The  last  integral  is  dependent  upon  the  radial  density  profile  of  the  axisymmetric 
configuration,  a  term  that  does  not  occur  in  the  three  dimensional  virial  theorem. 
Assuming  that  /  =  Kb  =  Ps  =  0,  and  that  ()'!£. /Or  =  0  (a  uniform  density  profile), 
the  virial  theorem  reduces  to  the  equation  PA  =  -2W.  Taking  P  —  A'S"',  A  =  irB? 
and  £  =  Mj/A  the  expression  for  the  Jeans  Mass  is  found  to  be 


Mj  = 


.4'/^' 


17-1 


(5.11) 


A' 

Because  this  expression  pertains  to  the  simple  case  of  a  uniform  density  configuration, 
it  represents  a  maximum  estimate  of  the  necessary  mass  for  a  self-gravitating  two- 
dimensional  mass  configuration  to  be  in  virial  equilibrium,  under  the  assumption  of  a 
polytropic  equation  of  state.  A  non-uniform  density  distribution  would  result  smaller 
Jeans  Mass  due  to  a  negative  contribution  from  the  integral  in  equation  (5.10). 

To  calculate  the  Jeans  Mass  for  a  satellite  the  gravitational  potential  energy  is  found 
by  taking  the  direct  sum  over  the  particle  pairs: 

1  V--V        v^  Gmi 

-oE^jE^--  (5-12) 

This  expression  is  for  unsoftened  gravity,  resulting  in  a  larger  estimate  of  the  Jeans  Mass 
than  would  be  found  if  the  softened  gravity  were  used  in  the  calculation  of  W.  The 
size  of  the  region  R  is  found  by  taking  the  particle  furthest  from  the  center  of  mass  of 
the  satellite  within  a  Ax. 4  region  roughly  centered  on  the  satellite.  It  is  found  that  the 
mass  of  all  satellites  well  exceeds  this  maximum  estimate  of  the  Jeans  Mass  at  all  times. 
However,  the  Jeans  Mass  may  not  be  the  relexant  criterion  to  define  whether  a  satellite 
has  enough  self-gravity  to  be  considered  a  coherent  structure.    After  all,  the  satellites 
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do  not  exist  in  isolation,  but  within  the  potential  well  of  the  central  companion  and  its 
disk.  Hence,  a  criterion  based  on  the  competition  between  self-gravity  and  tidal  forces 
is  more  appropriate. 

The  criterion  for  the  tidal  disruption  of  a  satellite,  assumed  to  be  held  together  by 
its  own  self-gravity  alone,  is  found  from  considering  the  net  force  apon  a  particle  at  the 
satellite's  surface.  In  a  frame  of  reference  rotating  with  the  satellite,  the  total  force  on  a 
particle  at  the  satellite's  surface  is  composed  of  the  gravitational  forces  from  the  primary 
and  the  satellite,  as  well  as  the  centrifugal  force.  By  expressing  both  the  centrifugal  force, 
and  the  gravitational  force  from  the  primary  body,  as  truncated  Taylor  expansions  about 
the  center  of  the  satellite,  the  criterion  for  tidal  disruption  of  a  satellite  is  found  to  be 

m2  <  rni—r.  (5.13) 

where  R  is  the  radius  of  the  satellite.  The  radius  of  the  satellite  is  taken  to  be  twice 
the  radius  at  which  the  surface  density  of  the  satellite  is  equal  to  the  average  surface 
density  of  the  satellite.  The  assumption  was  also  made  that  the  primary  and  the  satellite 
were  spherical  mass  distributions,  hence  applying  the  above  criterion  assumes  the  two- 
dimensional  satellite  represents  a  three-dimensional  spherical  satellite  with  the  same  mass 
and  radius.  Again,  all  the  identified  satellites  exceed  the  critical  mass  for  tidal  disruption, 
which  identifies  them  as  gravitationally  coherent  structures  in  the  gravitational  field  of 
the  primary,  with  few  exceptions:  a  few  of  the  satellites  do  not  possess  the  necessary 
mass  only  at  the  earliest  times  that  they  are  identified.  This  implies  that,  if  the  two- 
dimensional  satellites  were  in  three  dimensions,  they  have  been  traced  back  to  the  time 
of  their  initial  formation. 
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Encounter  Model 

As  mentioned  in  the  previous  chapter,  a  single  encounter  model  was  run.  and  the 
effect  of  the  encounter  on  the  mass  accretion  onto  the  central  object  was  noted.  Here, 
in  figures  5-9  through  5-12,  the  time  sequence  of  the  encounter  is  shown.  Figure  5-12 
shows  the  post-encounter  configuration  at  time  equal  to  16.0  dynamical  times.  Note  the 
formation  of  three  satellites  in  the  tidal  tail. 
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Figure  5-1:  Evolutionary  sequence  of  model  D2  showing  formation  of  satellite. 
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Figure  5-3:  Final  configuration  of  model  D2,  showing  the  position  of  the  satellite  at  earlier  times. 
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Figure  5-4:  Radial  density  profile  and  particle  distribution  of  satellite  D2-1. 
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Figure  5-5:  Final  configuration  of  model  B2,  showing  the  position  of  the  satellites  at  earlier  times. 
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Figure  5-6:  Final  configuration  of  model  B3,  showing  the  position  of  the  satellites  at  earlier  times. 
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Figure  5-7:  Final  configuration  of  model  B 1 ,  showing  the  position  of  the  satellites  at  earlier  times. 
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Figure  5-8:  Final  configuration  of  model  Dl.  showing  the  positions  of  the  satellites  at 
earlier  times.  Satellite  4,  which  has  been  reabsorbed  by  the  disk,  is  not  shown. 
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Figure  5-9:  Encounter  model. 
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Figure  5-10:  Encounter  model  continued. 
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Figure  5-11:  Encounter  model  continued. 
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Figure  5-12:  Encounter  model  at  Time  =  16.0.    Note 
the  three  satellites  that  have  formed  in  the  tidal  tail. 


CHAPTER  6 
SUMMARY  AND  CONCLUSIONS 

Results 
Code  Development 

The  goal  of  this  work  is  to  model  accretion  disks  that  are  similar  to  protostellar 
disks,  and  to  ascertain  the  effect  of  shear  viscosity  on  the  evolution  of  these  objects.  The 
first  step  toward  this  accomplishment  was  the  development  of  a  numerical  hydrodynamics 
computer  code  which  can  calculate  the  gravitational  forces,  as  well  as  the  hydrodynamical 
forces,  that  dictate  the  dynamics  of  a  given  system.  The  numerical  hydrodynamics  were 
added  to  an  already  existing  hierarchical  tree  N-body  code  developed  by  Hemquist  (1987), 
and  the  method  chosen  was  SPH  (smoothed  particle  hydrodynamics).  In  implementing 
this  method  I  follow  the  standard  techniques  of  SPH  that  others  have  already  developed 
and  communicated  in  the  literature.  In  order  to  efficiently  model  astrophysical  disks, 
that  often  display  a  large  dynamic  range  in  time  scales,  I  improved  the  integrator  by 
incorporating  individual  time  steps.  However,  certain  characteristics  of  this  problem 
demanded  that  I  modify  the  method. 

The  first  modification  was  to  impose  an  inner  boundary  condition  around  a  central 
massive  particle,  that  represented  the  protostar,  which  would  allow  the  particles  that 
represent  the  gas  to  "accrete"  onto  the  central  object.  At  the  same  time  the  boundary 
must  give  some  pressure  support  to  the  gas,  so  that  the  region  around  the  central  object 
will  not  be  an  unrealistic  sink  for  the  gas.  Other  authors  have  suggested  a  method  for 
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modeling  accretion  with  SPH  (Anzer  et  ai,  1987),  but  it  is  unsatisfactory,  as  the  rate  of 

accretion  is  determined  by  the  parameters  of  the  method.  In  a  real  astrophysical  disk, 
accretion  is  determined  by  processes  taking  place  throughout  the  disk,  and  not  by  the 
inner  boundary  condition;  I  wish  the  same  to  be  the  case  in  my  models.  Therefore  I 
developed  an  inner  boundary  condition  which  circumscribes  an  inner  axisymmetric  disk 
with  a  density  profile  that  is  adjusted  so  that  the  boundary  condition  remains  smooth 
in  the  density  and  the  velocities.  This  inner  density  profile  is  described  by  inner  SPH 
particles  placed  on  concentric  rings  (see  Chapter  3).  The  boundary  provides  not  only 
the  pressure  force,  but  also  the  viscous  force,  needed  to  realistically  model  accretion. 
To  test  that  mass  accretion  is  not  being  determined  by  the  inner  boundary  condition,  I 
ran  models  with  two  different  density  profiles  describing  the  inner  disk  (Chapter  4),  and 
found  that  the  mass  accretion  varied  only  slightly,  indicating  a  large  degree  of  success. 
The  accuracy  of  the  models  is  further  evidenced  by  the  accretion  rates  found  for  the  disks 
which,  when  transformed  to  physical  units,  match  those  inferred  from  observations. 

Another  modification  to  the  SPH  method  was  the  development  of  an  artificial  viscous 
term  that  accurately  models  shocks,  and  yet  introduces  a  realistic  amount  of  viscous 
shear,  whose  strength  can  be  varied.  To  achieve  this  I  developed  a  hybrid  version  of  the 
standard  artificial  viscous  term  already  used  in  standard  SPH.  Its  description,  as  well  as 
the  accretion  shock  models  used  to  test  it,  is  found  in  Chapter  2.  Also  of  importance 
is  a  clear  understanding  of  the  nature  of  the  effective  viscous  shear  produced  by  this 
artificial  term,  which  was  originally  introduced  to  SPH  to  model  shocks  accurately.  The 
shear  viscous  forces  are  found  to  be  described  by  a  standard  shear  viscous  coefficient 
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proportional  to  the  local  density,  sound  speed,  and  smoothing  length: 


1/  =  Oi^'E.ch, 


(6.1) 


such  that  the  constant  a„,  corresponding  to  the  a  parameter  of  thin  viscous  disk  theory, 
is  about  one  tenth  the  artificial  viscosity  parameter  q.  This  scaling  of  the  viscous  shear 
coefficient  is  the  same  as  turbulent  viscosity,  with  h  being  a  scale  length,  which  is  the  type 
of  viscosity  that  is  suspected  to  be  at  work  in  accretion  disks  (Shakura  &  Sunyaev,  1973). 
To  determine  this  scaling  of  the  shear  viscous  coefficient,  models  without  self-gravity  or 
pressure  support  are  evolved  (see  Chapter  2). 

In  the  course  of  completing  this  work  it  became  evident  that  several  improvements 
upon  the  code  may  improve  its  performance.  In  the  future  I  wish  to  try  a  different  method 
of  rendering  the  smoothing  kernel  symmetric  {Wij  =  lij,).  In  this  work  the  kernel  is 
made  symmetric  by  using  the  standard  cubic-spline  kernel  with  an  average  smoothing 
length:  W^j  -  W{Tij,hij),  with  hij  =  {h,  +  ht)/2.  Others  have  reported  problems 
with  this  form  of  the  kernel  (Hernquist  &  Katz,  1989),  and  another  method  which  may 
give  better  results  is  to  use  the  form  W,j  =  \{W{Tij,hi)  -f-  W{rij,hj)).  This  form  may 
reduce  the  amount  of  noise  observed  in  the  density  on  a  small  scale,  as  well  as  making 
the  code  more  robust  (i.e.  adaptable)  when  strong  shocks  develope  on  a  short  time  scale. 

Another  undesirable  feature  seen  in  many  of  the  models,  if  they  are  given  close 
inspection,  is  a  tendency  for  particles  to  clump  in  pairs,  especially  in  the  outer,  diffuse 
portions  of  a  disk.  This  is  well  known  in  the  SPH  community  as  the  pair  instability,  and 
is  the  result  of  the  mutual  smoothed  gravity  force  between  two  particles  not  decreasing 
in  strength  faster  than  the  opposing  pressure  force  when  the  two  particles  approach  on 


another  (Herant,  1994).  If  particles  can  approach  close  enough  to  one  another,  their 
net  attraction  will  cause  them  to  remain  associated.  At  this  point  the  pair  becomes  a 
single  particle,  but  with  twice  the  statistical  weight  as  its  single  neighbors,  when  the 
local  estimation  of  quantities  is  made.  It  also  has  the  undesired  effect  of  reducing  the 
number  of  particles  used  in  the  simulation.  This  instability  can  be  avoided  by  using 
a  gravitational  smoothing  parameter  c  which  is  spatially  variable.  An  obvious  choice 
would  be  to  set  £,  =  hi. 
Modal  Evolution 

My  original  goal,  when  I  began  this  work,  was  to  study  the  specific  variation  of  the 
evolution  of  the  modes,  and  their  frequencies,  when  the  strength  of  the  shear  viscosity 
is  varied.  However,  I  have  found  that  a  detailed  description  is  sometimes  not  possible, 
given  the  number  of  modes  and  frequencies  present,  as  well  as  their  transient  character. 
In  addition,  the  evolution  is  found  to  be  sensitive  both  to  initial  conditions,  such  as  the 
noise  in  the  initial  particle  positions,  as  well  as  to  code  parameters,  such  as  the  tolerance 
angle.  For  these  reasons  a  specific  description  of  the  evolution  of  the  modes  is  found  to 
be  not  only  difficult,  but  of  little  practical  value.  General  features  of  the  modal  evolution 
are  noted  in  Chapter  4.  One  consistent  result  is  the  presence  of  an  m=l  mode  that 
dominates  most  of  the  accretion  disks  that  initially  have  a  central  mass  to  disk  mass  ratio 
of  one.  This  result  agrees  with  previous  analytical  work  (Savonije  et  ai,  1992)  and  has 
been  observed  by  others.  Another  important  feature  to  be  noted  is  that  the  amplitude  of 
the  modes  are  damped  when  the  strength  of  the  shear  viscosity  is  increased. 
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Accretion 

More  interesting  than  the  details  of  the  numerical  method  are  the  results  found  from 
the  models  themselves.  The  results  in  both  this  subsection  and  the  next  share  the  common 
factor  that  they  were  unanticipated.  The  mass  accretion  onto  the  central  object,  driven 
by  the  local  action  of  shear  viscous  forces  and  the  global  action  of  the  nonaxisymmetric 
modes,  shows  three  distinct  features.  First,  for  most  of  the  disks,  the  accretion  rate  after 
about  six  to  ten  dynamical  times  attains  a  value  constant  with  time.  How  an  accretion 
disk  regulates  itself  in  order  to  maintain  a  constant  accretion  rate  is  not  clear.  The  second 
result  is  that  the  accretion  rate,  after  attaining  a  constant  value,  sometimes  undergoes  a 
brief  adjustment  period  to  attain  a  new  constant  accretion  rate.  For  the  accretion  disks 
that  begin  with  an  initial  central  mass  to  disk  mass  ratio  of  one,  the  shifts  in  the  accretion 
rate  are  correlated  to  the  m=l  mode  gaining  dominance  in  the  disk.  The  third  and  most 
interesting  result  is  that  mass  accretion,  whether  measured  by  the  total  mass  accreted,  or 
the  accretion  rate,  is  roughly  inversely  proportional  to  the  strength  of  the  shear  viscous 
forces. 

Though  counter-intuitive,  this  last  result  can  be  understood  by  considering  the  effect 
of  the  shear  viscosity  on  the  nonaxisymmetric  modes.  These  modes,  when  present,  are 
more  efficient  than  shear  viscosity  at  transporting  angular  momentum,  and  thereby  driving 
accretion.  As  the  shear  viscosity  increases  the  amplitude  of  the  nonaxisymmetric  modes 
is  damped,  resulting  in  a  decline  of  their  efficiency  to  drive  accretion.  In  the  past  the 
action  of  nonaxisymmetric  modes  has  been  modeled  in  a-disk  theory,  which  assumes 
axisymmetry  and  that  the  disk  is  thin  (see  Pringle  1981),  as  simply  an  additive  effect 
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(Lin  &  Pringle,  1987).  That  is,  the  presence  of  nonaxisymmetric  modes  is  modeled  by 
increasing  the  effective  viscosity  parameter  a„.  My  results  suggest  that  this  approach 
may  be  too  simple,  as  the  two  mechanisms  for  transporting  angular  momentum  are 
not  independent  of  each  other.  While  it  is  true  that  accretion  will  be  greater  when 
nonaxisymmetric  modes  are  present  than  if  they  are  not,  my  results  suggest  that  the 
converse  is  not  true.  When  shear  viscous  forces  are  present,  accretion  is  hindered. 

Formation  of  Satellites 

In  all  disks  that  formed  a  dominating  m=l  mode  satellites  are  also  observed  to 
form.  Though  the  dominating  m=l  mode  is  not  directly  responsible  for  the  formation 
of  the  satellites,  the  importance  of  its  eventual  development  is  bom  out  by  model  D3, 
which  has  neither  a  dominating  m=l  mode  nor  satellites.  A  correlation  between  the 
number  of  satellites  formed  and  the  ratio  of  specific  heats,  7,  is  not  clear,  whereas,  more 
satellites  are  formed  in  models  with  the  least  amount  of  viscous  shear.  Also,  it  should 
be  mentioned  that  the  satellites  in  models  B 1  and  D 1 ,  which  differ  only  in  their  ratio  of 
specific  heats,  form  by  different  mechanisms.  Two  of  the  satellites  in  model  Bl  form 
by  a  gradual  accumulation  of  particles.  This  process  of  formation  may  be  an  artifact 
of  the  SPH  method  which,  in  representing  a  gas  by  a  finite  number  of  particles,  does 
not  resolve  diffuse  regions  well.  However,  the  majority  of  the  satellites  form  from  the 
outer  portions  of  arms  of  nonaxisymmetric  modes.  Therefore,  a  lower  value  of  7  may 
favor  satellite  formation,  though  this  study  does  not  resolve  the  question.  The  satellites, 
once  formed,  also  exhibit  vigorous  orbital  evolution.  The  orbital  evolution  of  all  the 
satellites  are  described,  and  then  explained  by  applying  the  simple  model  of  two  bodies 
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in  circular  rotation  about  one  another.  Though  many  of  the  satellite  orbits  have  significant 
eccentricity  after  they  form,  and  sometimes  interact  with  other  satellites,  the  "toy  model" 
explains  their  overall  orbital  evolution  well. 

In  modeling  astrophysical  disks  many  others  have  reported  the  fission  of  a  disk, 
starting  with  Lucy  (1977)  and  more  recently  Bonnell  (1994).  Others  have  investigated 
the  fragmentation  of  collapsing  clouds  (see  Boss,  1992).  However,  these  models  begin 
without  a  central  massive  object,  and  therefore  are  not  accretion  disks.  The  companions 
formed  are  massive,  and  envisioned  to  be  the  birth  of  a  companion  star.  The  models 
presented  in  this  work  are  the  only  models  which  exhibit  the  formation  of  small  satellites 
in  a  disk  gravitationally  dominated  by  a  central  body.  Their  significance  to  the  theory 
of  planet  formation  is  obvious.  Others  have  pointed  out  both  the  necessity  and  difficulty 
of  Jupiter  forming  early  in  the  history  of  the  protosolar  disk  (Wetherill,  1994).  Might 
these  satellites,  if  allowed  to  complete  their  collapse,  be  the  seed  for  large  bodies  in  the 
outer  solar  system?  If  so  it  would  be  a  mechanism,  gravitational  in  nature,  by  which 
planets  may  be  formed,  as  opposed  to  the  process  of  accumulation  of  planetesimals  that 
is  currently  in  favor  (Hayashi  et  al.,  1977;  Boss,  1989;  Wetherill,  1990).  However, 
others  have  speculated  on  the  presence  of  vortices  in  a  protostellar  disk  which  may  lead 
to  local  gravitational  instabilities  (Hunter  &  Schweiker,  1981;  Hunter  &  Horak,  1983; 
Abramowicz  et  al.,   1992). 

One  difficulty  with  supposing  that  the  satellites  may  be  protoplanets  is  that  a 
dissipative  mechanism,  which  would  later  circularize  the  orbit,  must  be  found.  If  such  a 
mechanism  does  not  exist  then  these  models  could  be  used  to  argue  that  Jupiter  could  not 
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have  formed  in  the  way  that  these  satelUtes  form,  because  it  possesses  a  nearly  circular 
orbit.  Also,  the  masses  of  the  satellites,  if  Mr  =  I  Ma,  are  about  an  order  of  magnitude 
greater  than  Jupiter's,  the  smallest  satellite  being  4.4  Jupiter  masses.  In  addition,  the 
formation  of  satellites  is  favored  by  the  two-dimensional  nature  of  these  disks;  because 
the  mass  is  restricted  to  two  dimensions,  higher  densities  are  achieved  than  those  that 
would  be  achieved  in  three  dimensions.  If  these  problems  are  resolved,  then  the  models 
suggest  the  possibility  of  massive  planets  at  large  distances  from  their  "suns",  as  many 
''  the  satellites  spiral  out  to  large  radii. 

Future  Work 

A  natural  extension  of  this  work,  and  the  next  priority  of  this  research,  is  to  generalize 
the  models  to  three  dimensions.  Although  the  results  presented  here  are  intriguing, 
they  must  be  verified  to  persist  in  three-dimensional  models,  especially  since  disks  with 
appreciable  mass  will  have  a  nonnegligible  thickness.  A  few  three-dimensional  models 
have  been  presented,  but  not  enough  to  provide  a  thorough  study  of  the  effects  of  viscosity 
on  such  disks,  much  less  to  ascertain  whether  the  results  obtained  for  the  two-dimensional 
disks  will  persist. 

Another  aspect  of  the  modeling  that  must  be  modified,  to  make  more  realistic 
models,  is  the  equation  of  state.  By  assuming  a  polytropic  equation  of  state,  the  need 
to  model  thermodynamics  is  avoided.  This  approach  has  been  used  here,  and  in  both 
the  modeling  and  analytical  work  of  others,  for  the  sake  of  necessity  and  convenience. 
This  approximation  enables  the  theorist  to  make  analytical  progress,  and  makes  the 
interpretation  of  models  much  easier.  Such  is  the  case  in  this  work  as  well,  though  not 
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for  the  reason  of  avoiding  yet  harder  work:  scientific  progress  and  understanding  takes 
place  in  steps.  Idealized  problems,  though  academic,  must  first  be  explored  before  more 
realistic  and  complex  models  can  be  understood.  Therefore  I  think  it  will  be  profitable  to 
use  the  pressure  of  an  ideal  gas,  in  conjunction  with  evolving  the  thermal  energies  of  the 
particles,  after  three-dimensional  models  are  first  evolved  with  the  polytropic  equation 
of  state.  Adding  thermodynamics  to  SPH  is  not  difficult  when  the  disk  is  optically 
thin.  However,  when  the  optical  depth  becomes  important  at  certain  wavelengths,  then 
radiative  transfer  must  be  included,  and  cooling  will  take  place  at  the  surface. 

In  this  work  magnetic  forces  were  completely  neglected,  yet  they  may  play  an  im- 
portant role  in  the  evolution  of  a  protostellar  disk.  As  was  mentioned  in  the  introduction, 
the  presence  of  a  weak  magnetic  field  may  be  the  source  of  the  instability  responsible 
for  the  anomalous  viscosity  that  protostellar  disks  must  possess  to  remain  short-lived  ob- 
jects. However,  others  have  recently  argued  that  viscosity  is  limited  by  causal  restraints 
to  much  lower  values  than  the  lifetimes  suggest  (Narayan  etai,  1994).  If  this  is  the  case, 
then  SPH  will  only  be  sufficient  to  model  such  low  viscosity  disks  with  higher  particle 
numbers,  so  that  the  smoothing  length  of  the  particles  is  significantly  smaller  than  the 
disk  height.  In  any  event,  an  explicit  shear  viscous  term  for  SPH  is  necessary  to  model 
a  gas  with  any  desired  form  of  viscosity,  let  alone  a  viscosity  which  is  independent  of 
the  local  smoothing  length.  Flebbe  et  al.  (1994)  have  introduced  such  a  term  in  an  SPH 
code  without  a  dynamically  varying  smoothing  length.  Instead  the  smoothing  length  in 
their  version  of  SPH  remains  constant. 
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Another  aspect  of  real  protostellar  disks  that  must  eventually  be  taken  into  account 
is  the  environment  in  which  they  form.  Star  formation  is  observed  to  occur  in  crowded 
environments,  and  encounters  during  the  lifetime  of  a  disk  will  not  be  uncommon. 
Numerical  studies  of  the  effect  of  encounters  with  protostellar  disks  have  begun  with 
the  work  of  Heller  (1993),  who  reports  on  the  effect  an  encounter  has  upon  the  tilt  of 
the  disk,  and  Clark  and  Pringle  (1993).  In  order  to  draw  general  conclusions  about  the 
effect  of  encounters,  rather  than  just  provide  a  description  of  specific  cases,  the  number 
of  encounter  models  considered  must  be  sufficient  to  explore  the  range  of  possible 
configurations.  This  demands  a  large  number  of  models,  as  there  are  three  primary 
controlling  parameters:  the  minimum  separation,  the  angle  of  approach,  and  the  relative 
velocity. 

Once  realistic  three-dimensional  models  are  built  the  next  step  will  be  to  develop 
methods  to  "observe"  the  models  synthetically  at  various  wavelengths,  resolutions,  and 
orientations.  Such  techniques  are  already  being  developed  (Bouvier,  1994).  This  will 
enable  specific  protostellar  disks  to  be  modeled.  Such  observations  of  real  systems  have 
been  made,  as  mentioned  in  the  first  chapter,  and  more  observations  of  these  objects  will 
be  made  as  new  instrumentation,  such  as  the  Millimeter  Array  and  Hubble  Telescope,  is 
employed  to  search  for  these  objects. 

The  formation  of  satellites  in  the  two-dimensional  models  that  I  have  presented  here  is 
intriguing,  and  it  will  be  interesting  to  see  if  they  form  in  corresponding  three-dimensional 
models,  or  if  their  formation  is  aided  by  cooling  when  more  thermodynamics  is  included. 
I  also  suspect  that  the  formation  of  the  satellites  is  a  chaotic  process,  in  the  sense  that  the 
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number  of  satellites  and  their  loci  of  formation  are  sensitive  to  initial  conditions,  but  this 
should  be  confirmed  with  modeling.  Also,  further  analytic  work  should  be  developed  in 
the  context  of  satellite  formation  (eg.  a  local  analysis),  such  as  that  begun  by  Hunter  & 
Horak  (1983).  Hopefully  such  analysis  will  throw  light  upon  the  connection  between  the 
m=l  mode  that  invariably  accompanies  satellite  formation. 

The  most  interesting,  and  enlightening,  results  are  those  concerning  mass  accretion. 
However,  these  same  results  also  raises  new  questions.  How  does  an  accretion  disk 
regulate  mass  accretion  in  order  to  insure  that  it  remains  at  a  constant  rate?  That  such 
behavior  is  preferred  is  underlined  by  the  observed  shifts  to  new  constant  accretion  rates, 
which  suggest  that,  when  physical  conditions  in  the  disk  change,  which  either  encourages 
or  hinders  accretion,  the  disk  quickly  adjusts  to  accommodate  a  new  constant  accretion 
rate. 


APPENDIX  A 
T2DSPH 

©PROCESS  DC(BODYCEL,CONCOM,GAS) 
gPROCESS  DIRECTIVE ( ' *VDIR : ' ) 

C 

c 

C  PROGRAM  T2DSPH 

C 

C  VERSION  2:  JUNE  1995 

C 

C  RONALD  DRIMMEL,  UNIVERSITY  OF  FLORIDA 

C 

c 
c 

C  A  CODE  TO  EVOLVE  SELF-GRAVITATING  SYSTEMS  USING  THE  HIERARCHICAL 

C  TREE  METHOD  DEVELOPED  BY  BARNES  AND  HUT  (NATURE  324,  446  [1986]) 

C  AND  IMPLEMENTED  IN  FORTRAN  BY  HERNQUIST  (AP.  J.  SUPPL .  64,  715 

C  [1987];  COMP.  PHYS.  COMM.  48,  107  [1988]).   THE  GASEOUS  COMPONENT 

C  IS  EVOLVED  USING  SMOOTHED  PARTICLE  HYDRODYNAMICS  (SPH) ,  WHICH  WAS 

C  ADDED  BY  RONALD  DRIMMEL  FOLLOWING,  IN  PART,  HERNQUIST  AND  KATZ'S 

C  OWN  UNIFICATION  OF  TREE-HIERARCHICAL  N-BODY  CODE  WITH  SPH  (1989) . 

C  THIS  VERSION  HAS  BEEN  OPTIMIZED  FOR  SUPERCOMPUTERS  AND  IS  FULLY 

C  VECTORIZED.  THE  CODE  IS  WRITTEN  IN  STANDARD  FORTRAN. 

C 

C  IN  THIS  VERSION,  VECTORIZATION  OF  THE  TREE  WALKS  IS  ACHIEVED  BY 

C  SIMULTANEOUSLY  PROCESSING  ALL  CELLS  AT  THE  SAME  LEVEL  IN  THE 

C  TREE,  AS  DISCUSSED  BY  HERNQUIST  (J.  COMP.  PHYS,  SUBMITTED 

C  [1988]) .   THE  GRAVITATIONAL  FORCE  CALCULATION  PROCEEDS  FOR  A 

C  SINGLE  PARTICLE  AT  A  TIME,  IN  SERIAL  ORDER. 

C 

C  THE  GRAVITATIONAL  FIELD  IS  SMOOTHED  ACCORDING  TO  A  CUBIC  SPLINE 

C  KERNEL.   THE  KERNEL  IS  COMPUTED  BY  LINEAR  INTERPOLATION  FROM  A 

C  LOOK-UP  TABLE. 

C 

C  A  SELF-STARTING  LEAP-FROG  INTEGRATOR  IS  USED,  AS  DESCRIBED  BY 

C  HERNQUIST  AND  KATZ  (AP.  J.  SUPPL.,  1989),  AND   INDIVIDUAL 

C  TIME  STEPS  WAS  IMPLEMENTED,  AGAIN  FOLLOWING  HERNQUIST  AND 

C  KATZ,  BY  RONALD  DRIMMEL.  THE  TIME  BIN  OF  EACH  PARTICLE  IS 

C  DETERMINED  BY  SUBROUTINE  COURANT,  WHICH  DEFINES 

C  THE  TIME  STEP  BY  USING  THE  COURANT  CONDITIONS. 

C 

C  THE  COMPUTATIONAL  SYSTEM  OF  UNITS  IS  DETERMINED  BY  THE  INPUT 

C  DATA,  WITH  THE  ASSUMPTION  THAT  G=l .   PARTICLES  ARE  NOT 

C  REQUIRED  TO  HAVE  IDENTICAL  MASSES. 
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c 

C  THIS  VERSION  USES  AN  POLYTROPIC  EQUATION  OF  STATE.  THE  SMOOTHING 

C  LENGTH  FOR  EVERY  PARTICLE  VARIES  IN  SPACE  AND  TIME  IN  ORDER 

C  TO  HAVE  A  LOCALLY  REAJUSTABLE  RESOLUTION.  PARTICLES  FROM  1 

C  TO  NGP  ARE  GASEOUS  WHILE  PARTICLES  FROM  NGP+1 >  NBODIES 

C  ARE  COLLISIONLESS.  WHEN  NGP  IS  EQUAL  TO  ZERO  WE  HAVE  A  PURE 

C  NBODY  SYSTEM  WHILE  WHEN  NGP=NBODIES  WE  HAVE  A  PURE  GASEOUS 

C  SYSTEM.  THE  INTERPOLATION  KERNEL  USED  FOR  THE  REPRESENTATION 

C  OF  GASEOUS  PROPERTIES  IS  THE  W3  SPLINE  FOR  2-D  PROBLEMS. 
C 

C  TWO  INPUT  DATA  FILES  ARE  REQUIRED  TO  RUN  THIS  CODE:  A  PARAMETER 

C  FILE,  WHICH  IS  READ  IN  THROUGH  THE  SUBROUTINE  INPARAM,  AND  A 

C  BODY  DATA  FILE,  READ  BY  SUBROUTINE  INBODS .   BOTH  ARE  ASCII  AND 

C  THEIR  STRUCTURE  IS  DEFINED  IN  THE  SUBROUTINES  WHICH  READ  THEM. 

C  THREE  OUTPUT  FILES  ARE  CREATED:  AN  ASCII  LOG  FILE,  AN  ASCII 
BODY  DATA  FILE  CONTAINING  THE  FINAL  STATE  OF  THE  SYSTEM,  AND 
A  BINARY  BODY  DATA  FILE.   THE  LOG  AND  BINARY  BODY  FILES  ARE 
UPDATED  EVERY  NOUTLOG  AND  NOUTBOD  STEPS,  RESPECTIVELY. 
THERE  IS  ALSO  A  HEADER  FILE,  CALLED  HEADER,  WHICH  DEFINES 

C  GLOBAL  PARAMETERS  AND  COMMON  BLOCKS. 
C 

C  WARNINGS  --  TO  AVOID  EXCESSIVE  OVERHEAD,  NOUTLOG  SHOULD  BE 

C  LARGER  THAN  1,  TYPICALLY  "  10,  DEPENDING  ON  THE 

C  NUMBER  OF  STEPS. 
C 

C  WHEN  COMPILING  ON  VAX'S,  AVOID  USING  OPTIMIZATION. 
C 

C  PLEASE  REPORT  ALL  PROBLEMS  OR  SUGGESTIONS  FOR  IMPROVEMENTS  TO 

C  THIS  CODE  TO  HERNQUISTOIASSNS . BITNET. 
C 

c 

0====================================================================== 

c 
c 

C  THIS  IS  THE  TOP-LEVEL  EVOLUTION  PROGRAM  TREECODE .   ITS  TASKS  ARE: 

C 

C  1)  TO  INITIALIZE  FILE  STRUCTURES  AND  GLOBAL  VARIABLES; 

C  2)  TO  INPUT  PARAMETERS  AND  THE  INITIAL  SYSTEM  STATE; 

C  3)  TO  ADVANCE  THE  STATE  OF  THE  SYSTEM  FOR  A  GIVEN  NUMBER 

C  OF  TIMESTEPS; 

C  4)  TO  PERFORM  A  DIAGNOSTIC  ANALYSIS  OF  THE  SYSTEM  AT 

C  EACH  TIME  STEP  (ENERGY,  ANGULAR  MOMENTUM,  ETC.); 

C  5)  TO  PERIODICALLY  RECORD  THE  STATE  OF  THE  SYSTEM; 

C  6)  AND  TO  TERMINATE  THE  SIMULATION  AND  CLOSE  DATA  FILES. 

c 

C 

c====================================================================== 

c 
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c 

c 

BASIC  GLOBAL 

c 

c 

ACC 

c 

ACCLIST 

c 

ACSMOOT 

c 

ADVLIST 

c 

ALFA 

c 

AMVEC 

c 

ANW 

c 

ARAD 

c 

ENOW 

c 

BHTA 

c 

C 

c 

CELLSIZ 

c 

CMPOS 

c 

CMVEL 

c 

CN 

c 

CPUTIME 

c 

CPUTO 

c 

CPUTl 

c 

DELV 

c 

DRHDT 

c 

DT 

c 

DTIME 

c 

DTIME2 

c 

DTS 

c 

DVEL 

c 

EPS 

c 

EKTOT 

c 

EPTOT 

c 

ETOT 

c 

F 

c 

GAMMA 

c 

H 

c 

HEADLIN 

c 

HMAX 

c 

INCELLS 

c 

ISS 

c 

LIST 

c 

LT(I) 

c 

MASS 

c 

MDOT 

c 

MINDX 

c 

MINUST 

c 

MTOT 

c 

NACC 

c 

NADVLIS 

ACCELERATION  COMPONENTS  OF  A  BODY. 

LIST  OF  ACCRETED  PARTICLES 

TABLE  OF  SMOOTHED  GRAVITATIONAL  ACCELERATION. 

LIST  OF  PART.  WHOSE  VELOCITIES  ARE  ADVANCED. 

VISCOSITY  PARAMETER. 

ANGULAR  MOMENTUM  VECTOR. 

WIDTH  OF  ANNULI  USED  FOR  AM  BOOKKEEPING. 

ACCRETION  RADIUS 

CURRENT  TIME  BIN 

VISCOSITY  PARAMETER 

SOUND  SPEED  AT  EACH  GAS  PARTICLE 

LINEAR  SIZES  OF  CELLS. 

POSITION  OF  THE  CENTER  OF  MASS. 

VELOCITY  OF  THE  CENTER  OF  MASS. 

COURANT  NUMBER  (TIME  STEP  PARAMETER) . 

CPU  TIME  (SECS)  USED  DURING  THE  SIMULATION. 

CUMULATIVE  CPU  TIME  AT  START  OF  RUN. 

CUMULATIVE  CPU  TIME  AT  END  OF  RUN. 

DEL  DOT  V  AT  EACH  GAS  PARTICLE 

PROJECTED  RATE  OF  DENSITY  CHANGE. 

THE  INDIVIDUAL  TIME  STEP. 

THE  CURRENT  TIMESTEP . 

DTIME/ 2. 

SYSTEM  TIME  STEP. 

INITIAL  VELOCITY. 

GRAVITATIONAL  SMOOTHING  PARAMETER. 

TOTAL  SYSTEM  KINETIC  ENERGY. 

TOTAL  SYSTEM  GRAVITATIONAL  POTENTIAL  ENERGY. 

TOTAL  ENERGY  OF  THE  SYSTEM. 

FACTOR . 

EXPONENT  IN  EQUATION  OF  STATE 

SMOOTHING  LENGTH  OF  GASEOUS  PARTICLES 

IDENTIFICATION  STRING  FOR  THE  RUN. 

MAXIMUM  SMOOTHING  LENGTH. 

NUMBER  OF  CELLS  CURRENTLY  IN  USE. 

ISOTHERMAL  SOUND  SPEED  (GAS  CONSTANT) 

LIST  OF  NEAREST  NEIGHBORS 

ANGULAR  MOMENTUM  TRANSPORTED  ACCROSS  RADIUS  I. 

MASSES  OF  BODIES  AND  CELLS. 

MASS  ACCRETION  RATE  FROM  RADIAL  VELOCITIES. 

ANNULUS  INDEX  OF  PARTICLES. 

THE  CONSTANT  -2. 

TOTAL  MASS  OF  THE  SYSTEM. 

TOTAL  NUMBER  OF  ACCRETED  PARTICLES 

NUMBER  OF  PARTICLES  IN  ADVLIST. 
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c 

NAGP 

c 

NBODIES 

c 

NBODLIS 

c 

NBODSMA 

c 

NBSLIST 

c 

NCELLS 

c 

NCP 

c 

NDIM 

c 

NGAS 

c 

NGP 

c 

NGPMAX 

c 

NGPTS 

c 

NINTERP 

c 

NMAX 

c 

NMP 

c 

NNB 

c 

NNBS 

c 

NNBMAX 

c 

NNBSLIS 

c 

NOUTBOD 

c 

NOUTLOG 

c 

NSTEPS 

c 

NSUBCEL 

c 

NTAVG 

c 

NTMAX 

c 

NTMIN 

c 

NTTOT 

c 

ONE 

c 

PHI 

c 

PHSMOOT 

c 

PI 

c 

POS 

c 

QTOT 

c 

QUAD 

c 

RBMIN 

c 

RH 

c 

RHS 

c 

RMAX{N) 

c 

RMIN(N) 

c 

ROOT 

c 

RSIZE 

c 

SLIST 

c 

SOF 

c 

SUBP 

c 

TAAM 

c 

TAM 

c 

TAEK 

c 

TBIN 

NUMBER  OF  ACCRETED  GAS  PARTICLES 

TOTAL  NUMBER  OF  INITIAL  BODIES 

TOTAL  NUMBER  OF  ACTIVE  BODIES 

MAXIMUM  NUMBER  OF  BODIES. 

LIST  OF  PARTICLES  IN  THE  SAPLING. 

MAXIMUM  NUMBER  OF  CELLS. 

NUMBER  OF  CENTRAL  PARTICLES 

NUMBER  OF  SPATIAL  DIMENSIONS. 

NUMBER  OF  GAS  PARTICLES  IN  CURRENT  TIME  BIN. 

INITIAL  NUMBER  OF  GASEOUS  PARTICLES. 

MAXIMUM  NUMBER  OF  GAS  PARTICLES. 

NUMBER  OF  GRID  POINTS. 

NUMBER  OF  VALUES  IN  LOOK-UP  TABLES. 

MAXIMUM  CURRENT  TIME  BIN. 

NUMBER  OF  MASSIVE  (ACCRETING)  PARTICLES 

NUMBER  OF  NEAREST  NEIGHBORS 

NUMBER  OF  NEIGHBORS  WITHIN  H/SOF. 

OPTIMUM  NUMBER  OF  NEIGHBORS. 

NUMBER  OF  PARTICLES  IN  NBSLIST. 

FREQUENCY  OF  SYSTEM  RECORD  OUTPUTS. 

FREQUENCY  OF  OUTPUTS  TO  LOG  FILE. 

NUMBER  OF  SYSTEM  TIMESTEPS  IN  THE  SIMULATION. 

NUMBER  OF  SUBCELLS  PER  CELL. 

AVERAGE  LENGTH  OF  INTERACTION  LISTS. 

LARGEST  INTERACTION  LIST  IN  CURRENT  TIME  STEP. 

SHORTEST  INTERACTION  LIST  IN  CURRENT  TIME  STEP. 

SUM  OF  INTERACTION  LISTS  IN  CURRENT  TIME  STEP. 

THE  CONSTANT  1. 

GRAVITATIONAL  POTENTIAL . 

TABLE  OF  LOOK-UP  VALUES  FOR  GRAV.  POTENTIAL. 

CONSTANT  PI. 

COORDINATES  OF  BODIES,  CM.  COORDS.  OF  CELLS. 

TOTAL  ENERGY  LOST. 

QUADRUPOLE  MOMENTS  OF  CELLS. 

COORDS.  OF  LOWER-LEFT  CORNER  OF  SYSTEM  BOX. 

GAS  DENSITY 

SMOOTHED  DENSITY. 

MAXIMUM  RADIAL  EXTENT  OF  PARTICLES  TIME  BIN  N. 

MINIMUM  RADIAL  EXTENT  OF  PARTICLES  TIME  BIN  N. 

POINTER  TO  THE  TOP  OF  THE  TREE. 

LENGTH  OF  THE  SYSTEM  BOX. 

LIST  OF  NEIGHBORS  WITHIN  H/SOF. 

DENSITY  SOFTENING  PARAMETER. 

POINTER  TO  DESCENDENTS  OF  A  CELL. 

TOTAL  ACRETED  ANGULAR  MOMENTUM 

TOTAL  ACRETED  MASS 

TOTAL  ACRETED  KINETIC  ENERGY 

LIST  OF  TIME  BIN  OF  EACH  PARTICLE. 
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c 
c 
c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


TD 

TDUMP 

TELAPS 

TINY 

TNOW 

TOL 

T0L2INV 

TPOS 

TSTEP 

TWO 

U 

USEQUAD 

UDOT 

UTOT 

VEL 

VET 

VTYP 

ZERO 

ZETA 


TIME  INTERVAL  BETWEEN  OUTPUTS 

TIME  OF  NEXT  OUTPUT 

TIME  ELAPSED  DURING  CURRENT  SYSTEM  TIME  STEP. 

A  SMALL  NUMBER  USED  TO  PREVENT  DIVERGENCES. 

CURRENT  SYSTEM  TIME. 

ACCURACY  PARAMETER. 

1.  /  (TOL  *  TOL) . 

CURRENT  POSITION  TIME. 

TOTAL  NUMBER  OF  TIME  STEPS. 

THE  CONSTANT  2 . 

PARTICLE  THERMAL  ENERGY. 

OPTION  TO  USE  (.TRUE.)  QUADRUPOLE  TERMS. 

RATE  OF  THERMAL  ENRGY  CHANGE. 

TOTAL  THERMAL  ENERGY. 

VELOCITY  COMPONENTS  OF  A  BODY. 

ESTIMATED  CURRENT  VELOCITY  OF  GAS  PARTICLE. 

VISCOSITY  TYPE 

THE  CONSTANT  0. 

SMOOTHING  LENGTH  ADJUSTMENT  PARAMETER. 


DEFINITIONS  SPECIFIC  TO  INPUT/OUTPUT. 


:  LOGICAL  I/O  UNIT  NUMBERS. 


UTERM,  UPARS,  ULOG,  UBODSIN, 

UBODSOU,UBODSAS 
PARSFIL,  LOGFILE,  IBODFIL,     :  CHARACTER  NAMES  OF  FILES. 

OBODFIL,OASCFIL 


DEFINITIONS  SPECIFIC  TO  VECTORIZED  TREE  CONSTRUCTION,  VECTORIZED 
TREE  WALK,  AND  VECTORIZED  TREE  SEARCH  FOR  NEAREST  NEIGHBORS.   NOTE 
THAT  BOTTOM  IS  EQUIVALENCED  TO  POS ,  WHICH  IS  DEFINED  ABOVE. 


ASUBP 

ACTLIST 

BODLIST 

CELLIST 

ISUBSET 

NWORKVE 


PARENT 
SUBINDE 
SUBPVEC 
TEMPLIS 


SUBPOINTER  FOR  ACTIVE  BODIES  OR  CELLS. 

LIST  OF  ACTIVE  BODIES  (I.E.  NOT  YET  LEAVES) . 

LIST  OF  ACTIVE  BODIES  (I.E.  NOT  ACCRETED). 

LIST  OF  CELLS. 

INDICES  OF  SUBSETS  OF  ACTIVE  BODIES  OR  CELLS. 

LENGTH  OF  TEMPORARY  WORK  ARRAY  WORKVEC .   IT 

SHOULD  BE  SET  TO  9*MAX  LENGTH  OF  GRAV 

INTERACTION  LIST. 

PARENTS  OF  ACTIVE  BODIES  OR  CELLS. 

SUBINDICES  FOR  ACTIVE  BODIES  OR  CELLS. 

VECTOR  EQUIVALENCED  TO  SUBP . 

TEMPORARY  VECTOR  TO  SWAP  ARRAYS. 
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C  WORKVEC      :  TEMPORARY  WORK  ARRAY. 
C 

c 

c 
c 

C  DATA  STRUCTURE  USED  TO  COMPUTE  GRAVITATIONAL  FIELD: 

C 

C  THE  BODY/CELL  TREE  STRUCTURE  IS  ASSUMED  TO  BE  OF  THE 

C  FORM  DISCUSSED  BY  BARNES  AND  HUT.   SCHEMATICALLY,  FOR 

C  THREE  DIMENSIONS  (I.E.  EIGHT  SUBCELLS  PER  CELL): 

C 

c  + ^ 

C   ROOT-->\  CELL:   MASS,  POS,  QUAD,  /,0,  /,/,/,  /,0,  /   \ 

C  + \ \ ^ 

c  \            \ 

c  + +              \ 

C  \                                              \ 

C  \    + +        \ 

C  +-->\  BODY:   MASS,  POS,  VEL,  ACC,  PHI   \         \ 

C  + +        \ 

c  \ 

c  + ^ 

c  \ 

c  \    + ^ 

C  +-->\  CELL:   MASS,  POS,  QUAD,   O,  / ,  / ,  0,  / ,  / ,  0,  /   \ 

C  + \ \ \ ^ 

C  \         \         \ 

C  ETC.      ETC.      ETC. 

c 
c 

C  THE  BODY/CELL  INFORMATION  IS  STORED  IN  ARRAYS  WHICH 

C  INCORPORATE  BOTH  BODIES  AND  CELLS.   FOR  PHYSICAL 

C  QUANTITIES  RELEVANT  TO  BOTH  BODIES  AND  CELLS,  SUCH  AS 

C  MASS  AND  POSITION,  THE  ARRAY  INDICES  RANGE  FROM 

C  1  -->  NBODSMA  +  NCELLS.   FOR  THOSE  QUANTITIES  DEFINED 

C  ONLY  FOR  BODIES,  SUCH  AS  VELOCITY,  THE  ARRAY  INDICES 

C  RANGE  FROM  1  -->  NBODSMA.   FOR  INFORMATION  RELEVANT 

C  TO  CELLS  ALONE,  SUCH  AS  POINTER  TO  DESCENDANTS,  THE 

C  ARRAY  INDICES  RANGE  FROM  NBODSMA  +  1  -->  NBODSMA  + 

C  NCELLS.   WITH  THIS  CONVENTION,  POINTER  CAN  REFER  TO 

C  EITHER  BODIES  OR  CELLS  WITHOUT  CONFLICT. 

C 

C  THE  IDENTIFICATION  OF  A  GIVEN  UNIT  AS  A  BODY  OR  A  CELL 

C  IS  DETERMINED  BY  THE  POINTER  TO  THE  BODY/CELL.   FOR  A 

C  BODY,  P  IS  LESS  THAN  OR  EQUAL  TO  NBODSMA,  WHILE  FOR  A 

C  CELL,  P  >  NBODSMA. 

C 
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c 

/* INCLUDE  NEWHEAD  FORTRAN  A 

C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

INTEGER  N,NOLD 

C    INITIALIZE  STATE  OF  THE  SYSTEM. 
C    

N=0 

CALL  INITSYS(N) 
C  

NOLD=N 

C    ADVANCE  SYSTEM  STATE  FOR  A  GIVEN  NUMBER  OF  STEPS. 
C    

TSTEP=1 

DOWHILE (N . LE . NSTEPS ) 


C 

c 


CALL  STEPSYS{N) 
IF(N.NE.NOLD)  THEN 

IF(M0D(N,3) .EQ.O)  CALLGRIDEN 

CALL  OUTSTAT(NOLD) 


NOLD=N 
ENDIF 

TSTEP=TSTEP+1 
ENDDO 

C    TERMINATE  THE  SIMULATION. 
C    

CALL  ENDRUN 


STOP 
END 
@  PROCES  S  DC ( BODYCEL , CONCOM , GAS ) 

Q*************************************************************-),********* 

c 
c 
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SUBROUTINE   ACCGRAV (OPTION) 
C 

c 

c 
c 

C  SUBROUTINE  TO  COMPUTE  THE  GRAVITATIONAL  ACCELERATION  FOR  ALL  OF 

C  THE  BODIES.   VECTORIZATION  IS  ACHIEVED  BY  PROCESSING  ALL  OF  THE 

C  CELLS  AT  A  GIVEN  LEVEL  IN  THE  TREE  SIMULTANEOUSLY.   THE  LOCAL 

C  VARIABLE  OPTION  INDICATES  WHETHER  THE  CODE  IS  TO  COMPUTE  THE    - 

C  POTENTIAL  AND/ OR  ACCELERATION. 

C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    


CHARACTER* 4  OPTION 
INTEGER  I , NTERMS , P , NUM 
DOUBLE  PRECISION  R,A 


C 

C  IMPOSED  KEPLERIAN  POTENTIAL. 

C 

C  NUM=0 

C  IF(ADVLIST(1) .EQ.NMP)  NUM=1 

C  IF ( OPTION. NE. 'POT  ')  THEN 

C  DO  I=1+NUM,NADVLIS 

C  P=ADVLIST(I) 

C  R=DSQRT(POS(P, 1) **2+POS(P,2) **2) 

C  A=-MASS(1) /R**3 

C  ACC(P,1)=A*P0S(P,  1) 

C  ACC{P,2)=A*POS(P,2) 

C  ENDDO 

C  ENDIF 

C  IF ( OPTION. NE. 'ACC  ')  THEN 

C  DO  I=1+NUM,NADVLIS 

C  P=ADVLIST(I) 

C  PHI(P)=-2.D0*MASS(1) /DSQRT { POS ( P, 1) **2+POS(P,2) **2) 

C  ENDDO 

C  ENDIF 

C  GOTO  99 
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C    INITIALIZE  THE  INTERACTION  LIST  DIAGNOSTICS. 
C    

NTTOT=0 

NTMIN=NBODSMA 

NTMAX=0 

IF(OPTION.NE. 'POT  ')  THEN 
C  CALL  TOLTEST 

C           CALL  TERROR {'  FINISHED  WITH  TOLEflANCE  TEST.  ') 
C    MAIN  LOOP  OVER  ALL  BODIES. 
C    

DO  100  I  =  1,NADV'LIS 
P=ADVLIST(I) 

C    ESTABLISH  INTERACTION  LISTS. 
C    

CALL  TREEWAL ( P , NTERMS ) 
C  

C    COMPUTE  POTENTIAL  AND/ OR  ACCELERATION. 
C    

CALL  GRAVSUM{P, NTERMS, OPTION) 
c  

C    UPDATE  DIAGNOSTICS,  SUBTRACTING  SELF- INTERACTION  TERM. 
C    

NTERMS=NTERMS-1 
NTTOT=NTTOT+NTERMS 
NTMIN=MIN ( NTMIN , NTERMS ) 
NTMAX=MAX ( NTMAX , NTERMS ) 

100        CONTINUE 
ELSE 

DO  I=1,NB0DLIS 

C    ESTABLISH  INTERACTION  LISTS. 
C    

CALL  TREEWAL ( BODLIST ( I ) , NTERMS ) 
C  

C    COMPUTE  POTENTIAL  AND /OR  ACCELERATION. 
C    

CALL  GRAVSUM( BODLIST (I) , NTERMS , OPTION) 
C  

C    UPDATE  DIAGNOSTICS,  SUBTRACTING  SELF- INTERACTION  TERM. 
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c 


NTERMS=NTERMS-1 
NTTOT=NTTOT+NTERMS 
NTMIN=MIN ( NTMIN , NTERMS ) 
NTMAX=MAX ( NTMAX , NTERMS ) 


ENDDO 

END  IF 


C    COMPUTE  AVERAGE  NUMBER  OF  FORCE  TERMS  PER  BODY. 
C    

NTAVG=NTTOT / NBODL I S 


99      RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 

c 
c 

SUBROUTINE  ACCRET(N) 
C 
C 

C 
C 

C  SUBROUTINE  TO  SEARCH  FOR  PARTICLES  THAT  HAVE  ACCRETED  ONTO 

C  THE  MASSIVE  ACCRETING  BODIES;  TO  UPDATE  RUNNING  TOTALS  OF 

C  TOTAL  ACCRETED  MASS,  KINETIC  ENERGY,  AND  ANGULAR  MOMENTUM; 

C  AND  TO  REMOVE  ACCRETED  PARTICLES  FROM  BODLIST. 

C  R.  DRIMMEL  3/92 

C 

C 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

C 

C      DECLARATION  OF  LOCAL  VARIABLES 

C 

C 

DOUBLE  PRECISION  AMASS , AAMV (3 ) , AEK, R, COSA, SINA, VR, VT, VX, VY, 
&  A,THETA,X,Y,B,MR,AMJ,MGP,DTH,XO,YO,VXO,VYO,RFAC,MG, 

&  NBDR{NSTMAX) , D, ROLD, RL, DR, RM, DM, DMP, ODEN, HP, ACCE, 

&  FN , DF , DEN , AMDA , VO , SX , SX2 , SDN , FAC , VT2 , V02 , RRNG (20), 

&  SXD, SVR, SVX, MT, LNDO , RSINV, DENO , THOLD, RAD, ORSI , AAM 
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INTEGER  N, J, I, P, NVAL, NS , NPA, INDX, FLAG, NAP, NUM, PP, FLG2 , THOS , 
&  NINDX , NON , K , NRNG (20), NRG 

DIMENSION  INDX(2000) ,NAP{2000) ,THOS(2000) 
CHARACTER* 4  OPTION 

DATA  FAC , THOLD , ODEN , ORS I , RRNG , NRNG , AAM/ 1.4D0,44*0.D0/, NRG/ 0 / 
SAVE  FAC , THOLD , DENO , ORSI , RRNG , NRNG , AAM , NRG 

C  THIS  STATEMENT  IS  FOR  WHEN  THERE  IS  NO  ACCRETION: 
C 

C      GOTO  99 

IF(NMP.EQ.O)  GOTO  99 

CALL  MAKETRE 
C 

C      FIND  ACCRETED  PARTICLES  AND  MODIFY  RUNNING  TOTALS 

C 

NPA=0 

AMASS=O.DO 

AMJ=O.DO 

AEK=O.DO 

ACCE=O.DO 

AAMV(3)=0.D0 

AMDA=O.DO 

MDOT=0.D0 

XO=POS(1,1) 

YO=POS{1,2) 

VX0=VET(1,1) 

VY0=VET(1,2) 

C   IF  THERE  IS  AN  ENCOUNTERING  PARTICLE: 

C 

IF{NBODIES-NGP.EQ.l)  THEN 

CALL  WALKIT(NBODIES,H{NBODIES) ,NVAL) 
DO  1=1, NVAL 
NPA=NPA+1 
P=TEMPLIS(I) 
NAP (NPA) =P 
TBIN(P)=-1 

MASS (NBODIES) =MASS (NBODIES) +MASS (P) 
ENDDO 
ENDIF 
FLAG=0 
55       NON=0 

CALL  WALKIT ( 1 , FAC  * ARAD , NVAL ) 


FLAG=FLAG+1 
DO  1=1, NVAL 

IF{WORKVEC(I) .GT.ARAD)  THEN 
N0N=N0N+1 
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THOS (NON) =TEMPLIS ( I ) 
ENDIF 
ENDDO 

IF ( FLAG . GT . 12 . OR . FAC . LE . 1 . DO )  THEN 
WRITE (ULOG, *)  N, NON, NVAL, FLAG, FAC 
CALL  TERROR ( '  BAD  FACTOR .  ' ) 
ENDIF 

IF (NON. LT. 50)  THEN 
FAC=FAC+0.1D0 
GOTO  5  5 
ENDIF 

IF (NON. GT. 900)  THEN 
FAC=FAC-0.1D0 
GOTO  55 
ENDIF 
IF ( NON. NE. NVAL)  THEN 
NUM=0 
DO  1=1, NVAL 

IF(WORKVEC(I) .LE.ARAD)  THEN 
NUM=NUM+1 

INDX{NUM) =TEMPLIS(I) 
ENDIF 
ENDDO 

DO  1=1, NUM 
P=INDX{I) 
NPA=NPA+1 
VX=VET(P,1) 
VY=VET(P,2) 
X=P0S{P,1) 
Y=P0S(P,2) 
DX=X-CMP0S(1) 
DY=Y-CMP0S(2) 
DVX=VX-CMVEL { 1 ) 
DVY=VY-CMVEL ( 2 ) 

TAAM ( 3 ) =TAAM ( 3 ) +MASS(P) * (X*VY-Y*VX) 
AAMV(3)=AAMV(3)+MASS(P) * (DX*DVY-DY*DVX) 
AAM=AAM+MASS(P) *( (X-XO) * (VY-VYO) - (Y-YO) *{VX-VX0) ) 
AEK=AEK+0.5D0*MASS(P) * (VX*VX+VY*VY) 
AMJ=AMJ+MASS(P) 
IF(N.EQ.O)  THEN 

ACCLIST(NPA)=P 
ELSE 

R=DSQRT( (X-XO) **2+ (Y-YO) **2) 
ACCE=ACCE+(U(P)+0.5D0* (VX*VX+VY*VY) 

-2.D0*MASS(1)/R) *MASS(P) 
MASS(P)=O.DO 
H(P)=O.DO 
U(P)=O.DO 
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END  IF 

TBIN(P)=-1 
NAP(NPA)=P 
ENDDO 

QTOT=QTOT+ACCE 
AMAS S = AMAS S + AM J 

IF (TNOW . EQ . 0 . DO . OR . N . NE . 0 )  MASS ( 1 ) =MASS ( 1 ) +AMJ 
ENDIF 

IF(N.EQ.O)  THEN 
ACCE=O.ODO 
AMASS=O.DO 
MDOT=0.D0 
AEK=O.DO 
AAMV(3)=0.D0 
TAAM{3)=0.D0 
I  AAM=U(1) 

:  NCP=NPA 

NACC=NPA 

IF(NACC.GT.IOOO)  CALL  TERROR ( '  OVERFLOW  IN  ACCLIST.  ') 
I  ENDIF 

IF(NPA.NE.O)  THEN 

I 

C 

C      MODIFY  BODLIST   (THIS  IS  NOT  THE  MOST  EFFICIENT  METHOD) 
C 

NAP (NPA+1 ) =NB0DIES+1 
NS  =  0 

CALL  NPKSRT { (NPA+1) , NAP, INDX) 
[  NBODLIS=NBODLIS-NPA 

DO  I=NMP+1,NB0DLIS 
j  DOWHILE (BODLIST (I+NS) . EQ .NAP ( INDX (NS+1) ) . AND.NS . LE .NPA) 

NS=NS+1 
ENDDO 

BODLIST ( I ) =BODLIST ( I +NS ) 
ENDDO 
NAGP=NAGP+NPA 

I  ENDIF 

'  C 

C   THESE  NEXT  STATEMENTS  ARE  FOR  THE  CASE  OF  NO  INNER  DISK 
C 

I  C  TAM=TAM+AMASS 

C  NACC=0 

C  NCP=0 

[  C  WRITE (18,*)  N, NPA, MASS (1) , TNOW 

C  GOTO  25 
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SX=O.DO 

SX2=0.D0 

SDN=O.DO 

SXD=O.DO 

SVR=O.DO 

SVX=O.DO 

DO  1=1, NON 

P=THOS(I) 

X=P0S{P,1) -XO 

Y=POS(P,2)-Y0 

R=DSQRT(X*X+y*Y) 

VR={Y*{VET{P,2)-VY0)+X*(VET(P,1)-VX0) ) /R 

SX=SX+R 

SX2=SX2+R*R 

SDN=SDN+DLOG{RH{P) ) 

SXD=SXD+DLOG(RH(P) ) *R 

SVR=SVR+VR 

SVX=SVX+VR*R 
ENDDO 

D=1.D0/ (DFL0AT(N0N)*SX2-SX*SX) 
RSINV=(DFLOAT(NON) *SXD-SDN*SX) *D 
LNDO= {SDN*SX2-SXD*SX) *D 
DENO=DEXP(LNDO) 
DEN=DENO*DEXP (ARAD*RSINV) 

MG=2.D0*PI*{DEN0-DEN*(-ARAD*RSINV+1.D0) ) /RSINV**2 
IF{RSINV.GT.O)  THEN 

DENO=DEN 

RSINV=O.DO 

MG=PI*DEN0*ARAD**2 
ENDIF 

B= (SVR*SX2-SVX*SX) *D 
A= (DFLOAT (NON) *SVX-SVR*SX) *D 
VR=A*ARAD+B 
C  NOTE:  THIS  ASSUMES  A  SCALE  LENGTH  OF  0.25  FOR  AN  OUTER  EXP.  DISK. 
X=ARAD*0.5D0/0.25D0 

RFAC=-(0.5772157D0+DLOG(X*0.5D0) ) * { 1 . DO+0 . 75D0*X**2 ) -1 . DO 
A=-4.D0*PI*DEN*DEXP(ARAD/0.2  5D0) *X* *2*RFAC*0 . 25D0/ARAD 
V02=MASS ( 1 ) /ARAD+A*ARAD 

VT2=V02+GAMMA*ISS*ARAD*RSINV*DEN**GMONE 
RFAC=DSQRT(VT2/V02) 
MD0T=-2 .DO*PI*ARAD*VR*DEN 
IF(MDOT.LT.O.DO)  MDOT=0.0 
MASS1=MASS(1) 

WRITE (18 , 100 )  MASSl , DENO , MDOT, RSINV, AAM, NPA, TNOW 
100   F0RMAT(1X,5(1PE13.6,1X) , 13 , IX, 1PE13 . 6) 
MGP=MG/DFLOAT(NACC) 
TAM=TAM+AMASS 

IF(ABS(DEN0-ODEN) .LT.1.D-04.AND.ABS(RSINV-ORSI) .LT.1.D-04)  GOTO  15 
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ODEN=DEN0 
ORSI=RSINV 

IF(RSINV.EQ.O.DO)  THEN 
C  IF  RSINV  IS  EQUAL  TO  ZERO  THEN  BUILD  A  UNIFORM  DISK: 
C    FIND  FIRST  RADIUS. 
C 

R=ARAD-DSQRT (MGP/DENO ) *  0 . 5D0 

DR=(ARAD-R) *2.D0 

RM=R-DR*0.5D0 

MR=PI*DEN0*RM**2 

NUM=IDNINT( (MG-MR) /MGP) 

MR=MG-NUM*MGP 

RM=DSQRT(MR/ (PI*DENO) ) 

DR=ARAD-RM 

R=RM+DR*0.5D0 

PP=NUM 

RRNG ( 1) =R 

NRNG { 1 ) =NUM 

NRG=1 
C 
C    FIND  RADII  OF  RINGS,  OUTSIDE  IN. 


FLG2=0 

DOWHILE ( FLG2 . NE . 1) 
FLG2=1 
RL=RM 

R=RL-DSQRT (MGP/DENO) *0.5D0 
DR=(RM-R) *2.D0 
RM=R-DR*0.5D0 
MR=PI *DENO *RM* *2 
NUM=IDNINT( (MG-MR) /MGP) -PP 
PP=PP+NUM 
MR=(MG-PP*MGP) 
RM=DSQRT(MR/ (PI*DENO) ) 
DR=RL-RM 
R=RM+DR*0.5D0 
IF(RM.GT.DR*0.5D0)  THEN 

FLG2=0 

NRG=NRG+1 

RRNG (NRG) =R 

NRNG (NRG) =NUM 
ENDIF 
ENDDO 


C 

C    LAST  RING. 

C 

R=RL*0.5D0 
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'  NRG=NRG+1 

I  RRNG(NRG)=R 

'-  NRNG  { NRG )  =NACC  -  P  P +NUM 

!  ELSE 

[  C 

C   FIND  FIRST  RADIUS. 

I  C 

R=0.9  5D0*ARAD 
R0LD=1 . 0 
FLAG=0 

DOWHILE(DABS(R-ROLD) .GT . 1 . D-06 . AND. FLAG. LT . 20 ) 
FLAG=FLAG+1 
DEN=DENO*DEXP(R*RSINV) 
FN=2 .DO* (R-ARAD) +DSQRT(MGP/DEN) 
j  DF=2 .DO-0 . 5D0*RSINV*DSQRT (MGP/DEN) 

i  ROLD=R 

•  R=ROLD-FN/DF 

'  ENDDO 

1  DR=(ARAD-R) *2.D0 

RM=R-DR*0.5D0 

MR=DEN0*2.D0*PI*(1.D0-DEXP(RM*RSINV) * ( 1 . D0-RM*RSINV) ) /RSINV**2 
J  NUM=IDNINT( (MG-MR) /MGP) 

[  MR=MG-NUM*MGP 

i  ROLD=l.D0 

'  FLAG=0 

\  DOWHILE(DABS(RM-ROLD) . GT. 1 . D-06 .AND. FLAG . LT . 10 ) 

■  FLAG=FLAG+1 

DEN=DENO*DEXP(RM*RSINV) 

FN=MR-2.D0*PI* (DENO-DEN* { 1 . D0-RM*RSINV) ) /RSI1TV**2 
DF=-2.D0*PI*RM*DEN 
ROLD=RM 
RM=ROLD-FN/DF 
j  ENDDO 

'  DR=ARAD-RM 

R=RM+DR*0.5D0 
PP=NUM 
RRNG ( 1) =R 
NRNG ( 1 ) =NUM 
NRG=1 
C 

C         FIND   RADII    OF    RINGS,     OUTSIDE    IN. 

C 

FLG2=0 

DO WHILE ( FLG2 . NE . 1) 

FLG2=1 

RL=RM 

R=RL-DR*0.5D0 

ROLD=l.D0 
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FLAG=0 

10        DOWHILE(DABS(R-ROLD) .GT.l. D-06.AND.FLAG.lt. 20) 
FLAG=FLAG+1 

DEN=DENO*DEXP(R*RSINV) 

FN=2.D0* (R-RL) +DSQRT(MGP/DEN) 

■  DF=2.D0-0. 5D0*RSINV*DSQRT(MGP/DEN) 

ROLD=R 

R=ROLD-FN/DF 
ENDDO 

IF( (RL-R) .LT.l.D-8)  THEN 
R=RL-DR 
GOTO  10 
^  ENDIF 

DR=(RM-R) *2.D0 

■  RM=R-DR*0.5D0 

I  DEN=DENO*DEXP(RM*RSINV) 

'  MR=2.D0*PI* (DENO-DEN* (l.DO-RM*RSINV) )/RSINV**2 

NUM=IDNINT( (MG-MR) /MGP) -PP 
'  PP=PP+NUM 

'.  MR=(MG-PP*MGP) 

;  ROLD=1.DO 

;  FLAG=0 

:  DOWHILE{DABS(RM-ROLD) . GT . 1 .D-06 . AND. FLAG. LT. 10) 

i  FLAG=FLAG+1 

;  DEN=DENO*DEXP(RM*RSINV) 

FN=MR-2.D0*PI* (DENO-DEN* (l.DO-RM*RSINV) ) /RSINV**2 
DF=-2 .DO*PI*RM*DEN 
ROLD=RM 
RM=ROLD-FN/DF 
ENDDO 
DR=RL-RM 
,;  R=RM+DR*0.5D0 

{  IF(RM.GT.DR*0.5D0)  THEN 

FLG2=0 
NRG=NRG+1 
RRNG(NRG)=R 
NRNG(NRG)=NUM 
ENDIF 
ENDDO 
C 

C   LAST  RING: 
C _ 

NRG=NRG+1 
R=RL*0.5D0 
RRNG(NRG)=R 
NRNG  { NRG )  =NACC  -  P  P +NUM 
ENDIF 
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C    PLACE  PARTICLES  INTO  RINGS. 

C 

'  IF(NRG.GT.20)  CALL  TERROR { '  ARRAY  OVERFLOW  IN  ACCRET . ' ) 

15    P=ACCLIST(NACC) 

RAD=DSQRT{ {P0S{P,1) -XO ) * *2+ ( POS ( P, 2 ) -YO) **2) 
■^  SINA=(POS(P,2)-Y0) /RAD 

'  COSA=(POS(P, 1)-X0) /RAD 

VT=(VEL{P,2)-VY0) *COSA- (VEL ( P, 1) -VXO ) *SINA 
THETA=THOLD+VT*DTIME/RAD 
i  THOLD=THETA 

NINDX=NACC 
;  DO  1=1, NRG 

R=RRNG ( I ) 

DEN=DENO*DEXP(R*RSINV) 
[  VR=-MDOT/ (2.D0*PI*R*DEN) 

VT=DSQRT(MASS1/R+A*R+ISS*GAMMA*R*RSINV*DEN**GM0NE) 
^^  DTH=2.D0*PI/DFLOAT{NRNG(I)  ) 

',  HP=2.D0*ZETA*DSQRT(MGP/DEN) 

I  DO  J=1,NRNG(I) 

P=ACCLIST(NINDX) 
COSA=DCOS (THETA) 
;  SINA=DSIN (THETA) 

'  POS(P,1)=R*COSA+X0 

'  POS(P,2)=R*SINA+Y0 

I  VEL(P,1)=-VT*SINA+VXO+VR*COSA 

VEL (P, 2 ) =VT*COSA+VY0+VR*SINA 
;-  MASS(P)=MGP 

I  H{P)=HP 

[;  AMDA= AMDA+ VT  *  R 

THETA=THETA+DTH 
'  NINDX=NINDX-1 

I  ENDDO 

I  AMDA=AMDA+NRNG ( I ) *VT*R 

THETA=0 . 5D0*DTH+THETA 
ENDDO 
C 

C   SET  VELOCITY  OF  ACCRETED  PARTICLES  AT  TIME  STEP  DTIME/2 . 

C 

DO  K=1,NDIM 

DO  I=1,NACC 

P=ACCLIST(I) 
VET{P,K)=VEL(P,K) 
ENDDO 
ENDDO 

C 

C      ADJUST  H  OF  INNER  DISK  PARTICLES  AT  TIME=0 

C 
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IF(N.EQ.O)     THEN 
CALL    MAKETRE 

DO    I=1,NACC 

P=ACCLIST(I) 
FLAG=0 
65  FLAG=FLAG+1 

IF(FLAG.GE.20)     THEN 

WRITE (ULOG, *)    N,P,P0S(P,1) ,P0S(P,2) ,H(P) 
WRITE (ULOG, *)    NACC 

CALL    TERROR ( '    UNABLE    TO   ADJUST    SMOOTHING    IN   ACCRET . ' ) 
ENDIF 
CALL    WALKIT ( P , H ( P ) , NVAL ) 


IF(NVAL.LT. {8*NNBMAX) /lO)     THEN 

H(P)=H(P) *1.1D0 

GOTO    65 
ENDIF 
IF(NVAL.GT.NSTMAX)     THEN 

WRITE (ULOG, *)     'IN  ACCRET  NVAL. GT. 200    FOR   PART . ' , P 

WRITE(ULOG, *)    N,NVAL,H(P) ,TNOW 

H(P)=H(P) *0.5D0 

GOTO    65 
ENDIF 
DO   J=1,NVAL 

NBDR { J ) =WORKVEC ( J ) 
ENDDO 
IF(NVAL.GT.NNBMAX)     THEN 

CALL    PKSRT ( NVAL , NBDR , INDX ) 

H(P)=(NBDR(INDX{NNBMAX) ) +NBDR(INDX( 8*NNBMAX/10) ) )*0.5D0 
ENDIF 
ENDDO 
ENDIF 

AMDA=AMDA*MGP 
25         LT{0)=LT(0)-AAMV(3) 
U(1)=AAM 
TAEK=TAEK+AEK 
TAE=TAE+ACCE 

99         RETURN 

ENDS PROCESS    DC (BODYCEL, CONCOM, GAS) 

c 
c 

SUBROUTINE   AMFLUX 
C 

c 

C*************************************************i,***i,*.tr1,*.n,i,i,i,*1,***1, 
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c 
c 

C  SUBROUTINE  TO  KEEP  TRACK  OF  THE  ANGULAR  MOMENTUM  FLUX  ACROSS 

C  THE  ANNULLI  BOUNDARIES  AT  R=l,2,..  .  THIS  FLUX  IS  STORED  IN 

C  THE  ARRAY  LF  AND  IS  WRITTEN  TO  A  FILE  IN  SUBROUTINE  OUTDISP. 

C  RONALD  DRIMMEL  11/92 
C 

/* INCLUDE  NEWHEAD  FORTRAN  A 

DOUBLE  PRECISION   X, Y, R, COSA, SINA, VT 
INTEGER  M,P, I,K 

DO  K=1,NDIM 

CMVEL(K)=O.DO 

CMPOS(K)=0.D0 
ENDDO 
MTOT=0.D0 
AMVEC(3)=0.D0 
DO  I=1,NGP-NAGP 

P=BODLIST(I) 

MTOT=MTOT+MASS ( P) 

AMVEC(3)=AMVEC(3)+MASS(P) *{P0S(P,1) *VET(P,2)- 
&  P0S(P,2) *VET{P,1) ) 

ENDDO 

DO  K=1,NDIM 

DO  I=1,NGP-NAGP 
P=BODLIST(I) 

CMVEL(K)=CMVEL{K) +MASS(P) *VET(P,K) 
CMPOS(K)=CMPOS(K)+MASS(P) *POS(P,K) 
ENDDO 

CMPOS (K) =CMPOS (K) /MTOT 
CMVEL (K) =CMVEL (K) /MTOT 
ENDDO 

C    RESET  'GRID'  PARTICLES  FOR  SPECTRAL  TIME  ANALYSIS. 
C    

DELR= ( 1 . DO-0 . IDO ) /DFLOAT (NGPTS-1 ) 
DO  I=NB0DIES+1,NB0DIES+NGPTS 

POS ( 1 , 1 ) =0 . IDO  +DELR* ( I - 1 -NBODIES ) +CMP0S ( 1 ) 

POS(I,2)=CMPOS(2) 
ENDDO 
DO  I=NB0DIES+1+NGPTS,NB0DIES+2*NGPTS 

POS (I, 1)=-0.1D0-DELR* ( I-1-NBODIES-NGPTS) +CMPOS { 1) 

POS(I,2)=CMPOS(2) 
ENDDO 
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DO  I=NBODIES+l+2*NGPTS,NBODIES+3*NGPTS 

P0S(I,2) =0.1D0+DELR* ( I-1-NB0DIES-2*NGPTS) +CMP0S(2) 

POS(I, 1)=CMP0S(1) 
ENDDO 
DO  I=NBODIES+l+3*NGPTS,NBODIES+4*NGPTS 

POS(I,2)=-0.1D0-DELR* { I-l-NBODIES-3 *NGPTS) +CMPOS (2 ) 

P0S(I,1)=CMP0S{1) 
ENDDO 

DO  I=NMP+1,NGP-NAGP 
P=BODLIST(I) 
X=P0S(P,1) -CMPOS(l) 
Y=P0S(P,2)-CMP0S(2) 
R=DSQRT{X*X+Y*Y) 
M=INT(R/ANW)+1 
IF(M.LE.50.AND.M.NE.MINDX(P) )  THEN 

C0SA=X/R 

SINA=Y/R 

VT={VEL(P,2)-CMVEL(2) ) *COSA- (VEL ( P, 1) -CMVEL ( 1 ) ) *SINA 

IF( {M-MINDX{P) ) .GT.O)  THEN 

LT(M-1)=LT(M-1) +MASS(P) *VT*DFLOAT (M-1) *ANW 

ELSE 

LT(M)=LT(M)-MASS(P) *VT*DFLOAT (M) *ANW 
ENDIF 

MINDX(P)=M 
ELSEIF(M.GT.50)  THEN 

MINDX(P)=51 
ENDIF 
ENDDO 

RETURN 

END 
@PROCESS  DC(BODYCEL,CONCOM,GAS) 
(iPROCESS  DIRECTIVE  (  '  *VDIR:  '  ) 

c 
c 

SUBROUTINE  CORRPOS(RC) 
C 

c 

c 
c 

C  SUBROUTINE  TO  APPLY  A  CORRECTION  FACTOR  TO  THE  POSITIONS  TO 

C  MAINTAIN  SECOND  ORDER  ACCURACY  WHEN  OUTPUTTING  PARTICLE  DATA 

C  TO  BODY  DATA  FILE  OR  WHEN  COMPUTING  ENERGY  DIAGNOSTICS.   THE 

C  ARGUMENT  RC  INDICATES  WHETHER  THE  CORRECTION  FACTOR  IS  TO  BE 

C  APPLIED  (CORRECT)  OR  REMOVED  (RESET) . 
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c 
c 


/♦INCLUDE  NEWHEAD  FORTRAN  A 


C 
C 


DECLARATION  OF  LOCAL  VARIABLES. 


CHARACTER*?  RC 

DOUBLE  PRECISION  DT2 , RCSIGN 

INTEGER  P,K,I 


IF { RC . EQ . ' CORRECT ' ) 

RCSIGN=-1. 
ELSE 

RCSIGN=1. 
ENDIF 


THEN 


C 

C 


LOOP  OVER  ALL  SPATIAL  COORDINATES  FOR  ALL  BODIES. 


C*VDIR:  IGNORE  RECRDEPS 
DO  200  K=1,NDIM 

DO  100  I=1,NB0DLIS 
P=B0DLIST(I) 

DT2=(DTS/2.D0**TBIN{P) ) **2 

POS(P,K)=POS(P,K) +RCSIGN*ACC{P,K) *DT2*0.125D0 
100        CONTINUE 
200     CONTINUE 

IF(NMP.NE.O)  THEN 
DT2=(DTS/2.D0**TBIN(1) ) **2 
DO  K=1,NDIM 
C*VDIR:  IGNORE  RECRDEPS 
DO  I=1,NACC 

P=ACCLIST(I) 

POS ( P , K) =POS ( P , K) +RCSIGN*ACC ( 1 , K) *DT2  *  0 . 12  5D0 
ENDDO 
ENDDO 
ENDIF 


RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 
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c 

c 

SUBROUTINE    CORRVEL 
C 

c 

c 

c 

C      SUBROUTINE  TO  ESTIMATE  THE  VELOCITIES  OF  THE  GAS  PARTICLES 

C      FOR  THE  TIMESTEP  DTIME/2. 

C 

C 

/* INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    


INTEGER  P,K,  I 

C 

C    RESETS  VELOCITIES  AFTER  INITIAL  POSITION  CORRECTION  MADE. 
C 

IF(BNOW.EQ.NCMAX)  THEN 
DO  K=1,NDIM 

DO  I=1,NADVLIS 
P=ADVLIST(I) 
VEL(P,K)=DVEL{P,K) 
ENDDO 
ENDDO 

NCMAX=NCMAX-1 
ENDIF 

RETURN 

END 
@ PROCESS  DC(BODYCEL,CONCOM,GAS) 
©PROCESS  DIRECTIVE! ' *VDIR: ' ) 

c 

SUBROUTINE  COURANT(N) 
C 

c 
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c 

C  SUBROUTINE  TO  CALCULATE  THE  TIME  STEP  USING  THE  COURANT 

C  CONDITION,  WHERE  CN  IS  THE  COURANT  NUMBER.  THE  EXPRESSION 

C  USED  BELOW  IS  TAKEN  FROM  HIOTELIS. 

C  N.  HIOTELIS  AND  R.  DRIMMEL  '91 
C 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

C 

C       DECLARATION  OF  LOCAL  VARIABLES 

C 

c 

INTEGER  I, P,N, BIN,NUM, J 

DOUBLE  PRECISION  VELI , FORC , LEN, X, A, AA, DTSOLD, R 

C 

2  5      NMIN=0 

C   FIND  BINS  THAT  NEED  POSSIBLE  REBINNING. 
C 

IF(N.NE.O)  THEN 

AA=DABS(TELAPS/DTS-IDNINT(TELAPS/DTS) ) 
DOWHILE ( AA . GT . 1 . D- 0  6 . AND . NMIN . LE . NMAX) 

NMIN=NMIN+1 

AA=TELAPS/ (DTS/2 .DO**NMIN) 

AA=DABS (AA-IDNINT (AA) ) 
ENDDO 

C 

C   MAKE  LIST  OF  PARTICLES  IN  BINS. 
C 

CALL  WHENIGE(NBODIES,TBIN, 1,NMIN,ADVLIST,NADVLIS) 

NGAS=0 

1=0 

DOWHILE (ADVLIST{I+1) .LE.NGP.AND. (I+l) .LE.NADVLIS) 
1=1+1   ' 

ENDDO 

NGAS=I 
C 

C   CHECK  TO  SEE  IF  SMALLEST  TIME  BIN  EMPTIED  DUE  TO  ACCRETION. 
C   IF  SO,  CHANGE  NMAX  AND  MAKE  A  HALF  STEP. 
C 

IF(NMP.NE.O)  THEN 

IF(NADVLIS.EQ.NMP. AND. NMIN. EQ. NMAX)  THEN 
NMAX=NMAX-1 
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DTIME=DTS/2 .DO**NMAX 

DTIME2=DTIME*0 . 5D0 

BNOW=NMAX 

TBIN(NMP)=NMAX 

CALL  WHENIEQ { NBODIES , THIN , 1 , ENOW , ADVLIST , NADVLIS ) 

NGAS=0 

1  =  0 

DOWHILE (ADVLIST (I+l) .LE.NGP.AND. (I+l) .LE. NADVLIS) 
1  =  1  +  1 

ENDDO 

NGAS=I 

CALL  HALFSTP(N) 

CALL  AMFLUX 

CALL  ACCRET(N) 

GOTO  25 
ENDIF 
ELSEIF (NADVLIS . EQ . 0 ) 

CALL  TERROR ( '  NO 
ENDIF 
ENDIF 


THEN 
PARTICLES  FOUND  TO  BE  RESINNED. 


') 


C 

c 
c- 


FIND  TIME  STEPS. 


NUM=0 

IF (ADVLIST (1) .EQ.NMP)     NUM=1 

DO    I  =  1+NXJM,NGAS 

P= ADVLIST (I) 

FORC=DSQRT(ACC(P, 1) **2+ACC(P,2) **2) 

VELI=DSQRT(VEL(P, 1) **2+VEL(P,2) **2) 

LEN=MIN ( EPS , 0 . 5D0  *H ( P )  ) 

LEN=0.5D0*H(P) 

DTIME=CN*MIN ( DSQRT ( LEN/ FORC ) , LEN/ VELI ) 

DT(P) =MIN(DT(P) ,DTIME) 
ENDDO 
DO  I =NGAS+1, NADVLIS 

P=ADVLIST(I) 

F0RC=DSQRT(ACC(P,1) **2+ACC(P,2) **2) 

VELI=DSQRT(VEL(P,1) **2+VEL(P,2) **2) 

DT(P)=CN*MIN (DSQRT (EPS/ FORC) , EPS/VELI) 
ENDDO 

DTIME=100000.D0 
DO  I=1+NUM, NADVLIS 

P=ADVLIST(I) 

DTIME=MIN(DTIME,DT(P) ) 
ENDDO 


C 
C 


SET  NEW  SYSTEM  TIME  STEP. 
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IF(NMIN.EQ.O)  THEN 

DTSOLD=DTS 

DTS=O.DO 

DO  I=1+NUM,NADVLIS 
P=ADVLIST(I) 
DTS=MAX{DTS,DT{P) 

ENDDO 

DTS=0.5D0*DTS 

N=N+1 

TELAPS=O.DO 
ENDIF 


FIND  NMAX  OF  NEXT  STEP. 


BIN=INT (LOG (DTS/DTIME) /LOG ( 2 . DO ) +1 . DO ) 

IF(BIN.GE.rMIN)  NMAX=BIN 

rF(NMAX.GT.NBINMAX)  CALL  TERROR ( '  NMAX  GT  NBINMAX .  ') 

DTIME=DTS  /  2  .  DO  *  *NMAX 
C 

C   SET  TIME  BINS. 
C 

IF{NMP.NE.O)  TBIN(NMP)=NMAX 
IF(NMIN.NE.O)  THEN 
DO  I=1+NMP,NADVLIS 
P=ADVLIST{I) 

BIN=INT(LOG(DTS/DT(P) ) /L0G{2 .DO) +1.D0) 
IF(TBIN(P) .NE.BIN)  THEN 
IF(BIN.GE.NMIN)  THEN 

X=2 .DO** (TBIN(P) -BIN) 
DTIME2= (DTS/2 .DO**TBIN(P) ) **2 
X=(1.D0-X) * (l.DO+X) *DTIME2/8.D0 
DO  K=1,NDIM 

POS(P,K)=POS{P,K) -X*ACC(P,K) 
ENDDO 
^  TBIN(P)=BIN 

f  ELSEIF(TBIN(P) .GT.NMAX)  THEN 

'.  BIN=NMIN 

)  X=2.D0**(TBIN(P)-BIN) 

DTIME2= (DTS/2. D0**TBIN{P) ) **2 
X=(1.D0-X) * (l.DO+X) *DTIME2/8.D0 
',  DO  K=1,NDIM 

i  POS(P,K)=POS(P,K) -X*ACC(P,K) 

}  ENDDO 

>  TBIN(P)=BIN 

'  ENDIF 

ENDIF 
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ENDDO 
ELSE 

DO  I=1+NMP,NADVLIS 
P=ADVLIST(I) 

BIN=INT(LOG(DTS/DT(P) ) /LOG (2. DO) +1.D0) 
X=DTS0LD*2 .DO**BIN/ (DTS*2 .DO**TBIN(P) ) 
DTIME2= {DTSOLD/2 .DO**TBIN(P) ) **2 
X=(1.D0-X) * (l.DO+X) *DTIME2/8.D0 
DO  K=1,NDIM 

;  POS(P,K)=POS(P,K)-X*ACC(P,K) 

ENDDO 

TBIN(P)=BIN 
ENDDO 
END  IF 

C 

C   FIND  RMIN  AND  RMAX  OF  THE  TIME  BINS  THAT  HAVE  JUST  BIN  READJUSTED 
■  C '_ 

DO  I=NMIN,NMAX 

RMAX ( I) =0. DO 

RMIN(I)=100.D0 
ENDDO 
DO  I=1+NMP,NGAS 

P=ADVLIST{I) 

R=DSQRT{ (P0S{P,1)-P0S(NMP,1) ) * *2+ ( POS ( P, 2 ) -POS (NMP, 2 ) )**2) 

RMAX{TBIN(P) )=MAX(RMAX(TBIN(P) ) , (R+H(P) ) ) 

RMIN(TBIN{P) )=MIN(RMIN(TBIN(P) ) , (R-H(P) ) ) 
ENDDO 

C   FIND  NEW  BNOW. 

C 

BNOW=0 

A=2.D0*TELAPS 
i  AA=DABS(A/DTS-IDNINT{A/DTS) ) 

^;.  DOWHILE  (AA .  GT .  1  .  D-06  .  AND .  BNOW .  LE  .  NMAX) 

'•  BN0W=BN0W+1 

I  AA=A/ (DTS/2.D0**BNOW) 

'^  AA=DABS  (AA-IDNINT  (AA)  ) 

'  ENDDO 

C 

f  C   MAKE  LIST  OF  PARTICLES  TO  BE  ADVANCED  IN  THE  NEXT  TIME  STEP 

>^  C '___ 

I  CALL  WHENIEQ(NB0DIES,TBIN,1,BN0W,ADVLIST,NADVLIS) 

I  IF{NADVLIS.EQ.O)  THEN 

{■  WRITE  (ULOG,  *)  '      BNOW=',BNOW 

i,  CALL  TERROR  ('  NO  PARTICLES  IN  THIS  TIME  BIN.  ') 

[  ENDIF 

^  NGAS=0 
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1  =  0 

D0WHILE(ADVLIST{I+1) .LE.NGP.AND. (I+l) .LE.NADVLIS) 

1  =  1  +  1 
ENDDO 
NGAS=I 

DTIME2=0.5D0*DTIME 

RETURN 
END 
@PROCESS  DC(BODYCEL,CONCOM,GAS) 

c 
c 

SUBROUTINE  DENSITY 
C 

c 

C 
C 

C      SUBROUTINE  TO  COMPUTE  THE  DENSITY,  SOFTENED  DENSITY,  DELV,  C, 

C      AND  Q  FOR  EACH  GAS  PARTICLE.  ADDAPTED  FROM  ORIGINAL  HYDRO 

C      SUBROUTINE  WRITTEN  BY  N.  HIOTELIS.  R.  DRIMMEL  9/92 

C 

C 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

C 

C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

INTEGER  NVAL,I, J,K,L,I1,P,NUM 

DOUBLE  PRECISION  DR2 , DR, UH, AA, DL, DX, HIJ, HINV, H2INV, 
&      DY , DVX , DVY , APR , FPI , H4 INV , DV , RHDV , PS , KERN , HTA , CROSS 

C 

c 

C     FIND  GAS  DENSITY  AND  VELOCITY  DIVERGENCE  FOR  ACTIVE  PARTICLES. 

C 

c 

HTA=0.001D0 

NUM=0 

IF(ADVLIST(1) .EQ.NMP)  NUM=1 

DO  I=1+NUM,NGAS 

P=ADVLIST(I) 

RH(P)=MASS(P) *C1/ (H(P)*H(P) ) 
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F(P)=O.DO 
ENDDO 

DO  I=1+NUM,NGAS 
P=ADVLIST(I) 
DV=O.ODO 
DO  L=1,NNBS(P) 
J=LIST{L,P) 
HIJ=(H(P)+H(J) ) *0.5D0 
DX=POS(P, 1) -POS(J, 1) 
DY=POS(P,2)-POS(J,2) 
DVX=VET(P,1) -VET(J,1) 
DVY=VET ( P , 2 ) -VET { J , 2 ) 
HINV=1.D0/HIJ 

UH=DSQRT{DX*DX+DY*DY) *HINV 
H2INV=HINV*HINV 
H4 INV=H2 INV*H2 INV 
APR=DX*DVX+DY*DVY 
CROSS=DVX*DY-DVY*DX 
AA=NINTERP*UH 
I1=AA 
DL=AA-I1 
DR=1.D0-DL 
11=11+1 

FPI=(DR*VDIVW3 (I1)+DL*VDIVW3 (Il+l) ) *C2*MASS(J) *H4INV 
DV=DV+APR*FPI 
F(P)=F(P)+CROSS*FPI 

RH(P)=RH(P) +C1* (VW3 (Il+l) *DL+VW3 (II) *DR) *MASS(J) *H2INV 
ENDDO 
C   FOR  GAMMA=1: 
CC        C(P)=DSQRT(ISS) 

C(P)=DSQRT(GAMMA*ISS*RH(P) **GMONE) 
C   WITH  FIRST  LAW: 

CC        C(P)=DSQRT(GAMMA*GMONE*U(P) ) 
DV=DV/RH(P) 

F(P)=DABS(DV)/ (DABS(DV)+DABS(F(P) /RH(P) )+HTA*C(P) /H(P) ) 
DELV(P)=-DV 
j'  ENDDO 

i  c 

i  C    FIND  DENSITY  AND  DIVERGENCE  OF  VELOCITY  FOR  ACCRETED  PARTICLES. 

•  C 

V 

?  c 

I 

fi  IF(BNOW.EQ.TBIN(NMP)  .OR.TBIN(NMP)  .EQ.-l)  THEN 

;'  DO  I  =  1,NACC 

>*  P=ACCLIST(I) 

J  RH(P)=MASS(P) *C1/ (H(P) *H(P) ) 

I  F(P)=O.DO 

'  ENDDO 

DO  I=1,NACC 
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P=ACCLIST(I) 
DV=0 . ODO 
DO  L  =  l,NI\rBS(P) 
J=LIST(L,P) 
HIJ=(H(P)+H(J) ) *0.5D0 
DX=P0S(P,1) -P0S(J,1) 
DY=P0S(P,2) -P0S(J,2) 
DVX=VET ( P , 1 ) -VET ( J , 1 ) 
DVY=VET(P,2) -VET(J,2) 
HINV=1.D0/HIJ 

UH=DSQRT(DX*DX+DY*DY) *HINV 
H2INV=HINV*HINV 
H4INV=H2INV*H2INV 
APR=DX*DVX+DY*DVY 
CROSS=DVX*DY-DVY*DX 
AA=NINTERP*UH 
I1=AA 
DL=AA-I1 
DR=1.D0-DL 
11=11+1 

FPI=(DR*VDIVW3 (I1)+DL*VDIVW3 (Il+l) ) *C2*MASS(J) *H4INV 
DV=DV+APR*FPI 
F(P)=F(P)+CROSS*FPI 

RH(P)=RH(P)+C1*{VW3(I1+1) *DL+VW3 (II) *DR) *MASS ( J) *H2INV 
ENDDO 
C   FOR  POLYTROPIC  EOS: 
C   FOR  GAMMA=1: 
CC        C(P)=DSQRT(ISS) 

C (P) =DSQRT(GAMMA*ISS*RH(P) **GMONE) 
C   WITH  FIRST  LAW: 

CC        C(P)=DSQRT(GAMMA*GMONE*U(P) ) 
DV=DV/RH(P) 

F(P)=DABS(DV)/ (DABS(DV)+DABS(F(P) /RH(P) ) +HTA*C (P) /H ( P) ) 
DELV(P)=-DV 
ENDDO 
ENDIF 
C 

C    ESTIMATE  SMOOTHED  DENSITIES 
C 
c 

NVAL=0 

IF(ADVLIST(1) .EQ.NMP)  NVAL=1 

DO  I=1+NVAL,NGAS 

P=ADVLIST{I) 

H2INV=SOF**2/ {H(P) *H{P) ) 

PS=MASS(P) *C1*H2INV*RH(P) 

RHDV=PS*DELV(P) 

AVM(P)=MASS{P) 
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NUM=1 

DO  L=1,NNB(P) 
J=SLIST(L,P) 
HIJ=(H(P)+H(J) ) *0.5D0 
DX=POS(P, 1)-P0S(J,1) 
DY=P0S(P,2) -P0S(J,2) 
HINV=SOF/HIJ 
DR2=DX*DX+DY*DY 
DR=DSQRT(DX*DX+DY*DY) 
UH=DR*HINV 
IF(UH.LT.l.DO)  THEN 

AVM( P) =AVM ( P) +MASS ( J) 
NUM=NUM+1 
H2INV=HINV*HINV 
AA=NINTERP*UH 
I1=AA 
DL=AA-I1 
DR=1 . -DL 
11=11+1 

KERN=C1*(VW3 (Il+l) *DL+VW3 (11) *DR) *H2INV*MASS ( J) 
PS=PS+KERN*RH(J) 
RHDV=RHDV+KERN*RH(J) *DELV(J) 
ENDIF 
ENDDO 
IF(NUM.EQ.l)  THEN 

WRITE(ULOG, *)  '  NO  NEIGHBORS  FOR' , P 
WRITE (ULOG, *)  POS{P, 1) ,P0S(P,2) ,H{P) ,NNB(P) 
ENDIF 

AVM(P)=AVM(P) /DFLOAT(NUM) 
RHS{P)=PS/RH{P) 

DRHDT(P)=RHS(P) *DELV ( P) -2 . DO*RHDV/RH (P) 
ENDDO 

RETURN 

ENDOPROCESS  DC { BODYCEL , CONCOM , GAS ) 

c 
c 

SUBROUTINE  ENDRUN 
C 

c 

c 
c 

C      SUBROUTINE  TO  END  THE  SIMULATION. 
C 

c 
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/♦INCLUDE  NEWHEAD  FORTRAN  A 

C    CORRECT  POSITIONS,  OUTPUT  PHASE  SPACE  DATA  TO  ASCII  FILE. 
C    

CALL  CORRPOS ( ' CORRECT ' ) 
C  

C        CALL  ZEROPOT 
C  

C        CALL  GRAVITY { ' POT  ' ) 
C  

C        CALL  OUTASCI 
C  

C    FINISH  TIMING,  CLOSE  DATA  FILES. 
C    

CALL  SECONDS (CPUTl) 
C  

CALL  OUTCPU 
C  

CALL  STOPOUT 
c  

RETURN 
END 
0 PROCESS  DC(BODYCEL,CONCOM,GAS) 

Q**********************i,***1,■t■^,*^,^,^,^,^,^,1,1,^,^,^,^,1,^,^r^,^,^,^,^,^,^,^,^^,^,^,^,^,^^^^^^^^^^^^^^ 

c 

c 

SUBROUTINE  ENERGY 
C 

c 

c 
c 

C  SUBROUTINE  TO  COMPUTE  DIAGNOSTICS  FOR  THE  SYSTEM:  TOTAL  ENERGY, 

C  TOTAL  KINETIC  ENERGY,  TOTAL  POTENTIAL  ENERGY,  ANGULAR  MOMENTUM, 

C  CENTER  OF  MASS  COORDINATES,  AND  CENTER  OF  MASS  VELOCITY.   THE 

C  LOCAL  VARIABLES  CMVEL,  AND  AMVEC  ARE  CENTER  OF  MASS 

C  POSITION  AND  VELOCITY,  AND  TOTAL  ANGULAR  MOMENTUM  OF  THE  SYSTEM, 

C  RESPECTIVELY. 

C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 
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C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

DOUBLE  PRECISION  POT,R 
INTEGER  P,K, I 


C    ZERO  THE  ACCUMULATORS  FOR  SYSTEM  DIAGNOSTICS. 
C    

MTOT=0. 
EKTOT=0 . 
EPTOT=0. 
UTOT=0. 

DO  100  K=1,NDIM 
CMVEL{K)=0. 
CMPOS(K)=0. 
100     CONTINUE 

DO  I=1,NB0DLIS 

P=BODLIST(I) 

MTOT=MTOT+MASS { P ) 
ENDDO 

DO  12  0  K=l,3 
AMVEC(K)=0. 
120     CONTINUE 

C 

C    LOOP  OVER  BODIES  TO  COMPUTE  SYSTEM  MASS  AND  POTENTIAL  ENERGY. 
C 


DO  150  I=1,NB0DLIS 

P=BODLIST(I) 

EPTOT=EPTOT+MASS(P) *PHI(P) 
150     CONTINUE 

EPTOT=EPTOT*0 . 5D0 

C 

C     COMPUTE  SYSTEM  INTERNAL  ENERGY  OF  GAS  PARTICLES. 
C 

DO  I=NMP+1,NGP-NAGP 

P=BODLIST(I) 

UTOT=UTOT+MASS ( P ) *U ( P ) 
ENDDO 
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c 

C    COMPUTE  SYSTEM  KINETIC  ENERGY,  COMPONENTS  OF  CENTER  OF  MASS 

C    POSITION  AND  VELOCITY. 

C 

DO  250  K=1,NDIM 

DO  200  I=1,NB0DLIS 
P=BODLIST(I) 

EKTOT=EKTOT+MASS (P) *VEL{P,K) **2 
CMVEL(K)=CMVEL(K)+MASS(P) *VEL(P,K) 
CMPOS(K)=CMPOS(K) +MASS{P) *POS{P,K) 
200        CONTINUE 

CMPOS ( K ) =CMPOS ( K ) /MTOT 
CMVEL(K)=CMVEL{K) /MTOT 
250     CONTINUE 

EKTOT=EKTOT*0 . 5D0 

C    COMPUTE  TOTAL  SYSTEM  ENERGY. 
C    

ETOT=EKTOT+EPTOT+UTOT+QTOT 

C 

C    COMPUTE  ANGULAR  MOMENTUM  OF  THE  SYSTEM. 

C 

C        IF(NDIM.EQ.2)  THEN 

DO  300  I=1,NB0DLIS 

P=B0DLIST{I) 

AMVEC ( 3 ) =AMVEC ( 3 ) +MASS ( P ) * ( POS ( P  ,  1) * VEL ( P ,  2 ) - 
&  P0S(P,2) *VEL(P, 1) ) 

3  00        CONTINUE 
C        ELSE  IF(NDIM.EQ.3)  THEN 
C 

C  DO  400  I=1,NB0DLIS 

C  P=B0DLIST(I) 

C  AMVEC (1)=AMVEC(1)+MASS(P) * (P0S(P,2) *VEL(P,3)- 

C     &  P0S(P,3) *VEL(P,2) ) 

C  AMVEC(2)=AMVEC(2)+MASS(P) * (P0S(P,3) *VEL(P,1)- 

C     &  P0S(P,1) *VEL(P,3) ) 

C  AMVEC(3)=AMVEC{3)+MASS{P) * (P0S(P,1) *VEL(P,2)- 

C     &  P0S(P,2) *VEL(P,1) ) 

C400        CONTINUE 
C 
C        ENDIF 

C    WRITE  DIAGNOSTICS  TO  THE  LOG  FILE. 
C    
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CALL  OUTENRG 


C 


RETURN 
END 
@ PROCESS  DC(BODYCEL,CONCOM,GAS) 

c 

C 

SUBROUTINE  ESTVEL 
C 

c 

c 
c 

C      SUBROUTINE  TO  ESTIMATE  THE  VELOCITIES  OF  THE  GAS  PARTICLES 

C      FOR  THE  TIMESTEP  DTIME/2 . 

C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLAFIATION  OF  LOCAL  VARIABLES. 
C    

INTEGER  P,K,I 

C    LOOP  OVER  VELOCITY  COMPONENTS  FOR  GAS  BODIES. 
C    

DO  K=1,NDIM 

DO  I=1,NB0DLIS 
P=BODLIST{I) 

VET ( P , K ) =VET { P , K) +DTIME2  * ACC ( P , K ) 
ENDDO 
ENDDO 

IF(BNOW.NE.NMAX)  THEN 
DO  K=1,NDIM 

DO  I=1,NACC 

P=ACCLIST{I) 

VET ( P , K) =VET ( P , K) +DTIME2  *ACC (1 , K) 
ENDDO 
ENDDO 
ENDIF 
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RETURN 
END 
©PROCESS  DC ( BODYCEL , CONCOM , GAS ) 

C 

SUBROUTINE  FINDNBS ( P , NVAL , NUM , NBS , FLAG , PATH , STEPS ) 
C 
C 

c 
c 

C      SUBROUTINE  TO  FIX  THE  SMOOTHING  LENGTH  OF  A  PARTICLE. 
C      AS  IS,  THIS  SUBROUTINE  ADJUSTS  H(P)  SO  THE  NUMBER  OF 
C      NEIGHBORS  WITHIN  HI J*  IS  >  NNBMAX/2,  AND  <  2*NNBMAX. 
C 
C 

/* INCLUDE  NEWHEAD  FORTRAN  A 

C 

C    DECLARATION  OF  LOCAL  VARIABLES. 
C 

INTEGER  I, P, FLAG,NVAL, J,NUM,NBS, STEPS, PATH(IOO) 

FLAG=FLAG+1 

CALL  WALKIT(P,H(P) /SOF,NVAL) 

NUM=0 

NBS=0 

DO  J=1,NVAL 

HIJ=(H(P)+H{TEMPLIS{J) ) ) *0.5D0 

IF(WORKVEC(J) .LT.HIJ/SOF)  THEN 
NUM=NXm+l 
IF(WORKVEC(J) .LT.HIJ)  NBS=NBS+1 

ENDIF 
ENDDO 
IF(FLAG.GE.30)  THEN 

WRITE (ULOG, *)  P,NUM,NBS,BNOW 

DO  1=1, STEPS 

WRITE(ULOG, *)  '  ',PATH(I) 

ENDDO 

CALL  TERROR { '  UNABLE  TO  ADJUST  SMOOTHING  IN  HPFIX .  ' ) 
ENDIF 

RETURN 
END 
9 PROCESS  DC ( BODYCEL , CONCOM , GAS ) 
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c 
c 

SUBROUTINE  GRAVITY (OPTION) 
C 
C 

C 

c 

C      SUBROUTINE  TO  COMPUTE  GRAVITATIONAL  POTENTIAL  AND  ACCELERATION. 
C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

CHARACTER* 4  OPTION 

CALL  MAKETRE 
C  

CALL  ACCGRAV (OPTION) 
C  

RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 

C 

c 

SUBROUTINE  GRAVSUM(P, NTERMS , OPTION) 
C 

c 

c 
c 

C  SUBROUTINE  TO  COMPUTE  THE  MONOPOLE  AND  QUADRUPOLE  CONTRIBUTIONS 

C  TO  THE  POTENTIAL  AND  ACCELERATION  COMPONENTS  FOR  BODY  P.   THE 

C  INTERACTION  LIST  IS  CONTAINED  IN  THE  VECTOR  ITERMS,  WHICH  IS 

C  EQUIVALENCED  TO  THE  COMMON  ARRAY  ACTLIST. 
C 

c 

C=========================================:===============^^^^^^^^^^^^^^^ 

/♦INCLUDE  NEWHEAD  FORTRAN  A 
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C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

INTEGER  MAXNTER 

PARAMETER ( MAXNTER=NWORKVE / 9 ) 

CHARACTER*4  OPTION 

DOUBLE  PRECISION  R3INVEF (MAXNTER) , RINVEFF (MAXNTER) , DRDELDR, 
&  PMASS, DRDOTDR( MAXNTER ) ,PHSM,DRSM,ACCSM, 

&  DX ( MAXNTER ) ,DY( MAXNTER ) ,DZ( MAXNTER ) , 

Sc  QR5INV  (MAXNTER)  ,  PHIQUAD  (MAXNTER)  ,  SDRDOTD, 

&  R2INVEF(MAXNTER) ,ACCI,EPSP,EPSI 

INTEGER  P,I,QINDEX(NBODSMA) , QTERMS (NBODSMA) , SMINDEX (NBODSMA) , 
&  NTERMS , ITERMS ( NBODSMA ) , NQTERMS 

EQUIVALENCE  ( ITERMS ( 1) ,ACTLIST(1) ) , (QINDEX(l) ,TEMPLIS(1) ) , 
&  (QTERMS(l) , ISUBSET(l) ) , (SMINDEX(l) , PARENT ( 1) ) , 

&  (DX(1) ,W0RKVEC(1) ) , (DY(1) , WORKVEC (MAXNTER+1) ) , 

&  (DZ(1) , WORKVEC ( 2 *MAXNTER+1) ) , (R3INVEF(1) , 

&  WORKVEC (3*MAXNTER+1) ), (RINVEFF (1) , 

&  WORKVEC ( 4 *MAXNTER+1) ) , (DRDOTDR(l) , 

&  WORKVEC ( 5 *MAXNTER+1) ) , (QR5INV(1) , 

&  WORKVEC ( 6 *MAXNTER+1) ) , ( PHIQUAD (1) , 

&  WORKVEC (7*MAXNTER+1) ), (R2INVEF(1) , 

&  WORKVEC { 8  * MAXNTER+1 )  ) 


C  =  =  =  = 


C 


IF (NTERMS . GT . MAXNTER ) 
&      CALL  TERROR ( '  ARRAY  OVERFLOW  IN  GRAVSUM  ' ) 


C 

C    COMPUTE  MONOPOLE  CONTRIBUTION;  TEMPORARILY  SET  MASS  OF  BODY  P  TO 

C    ZERO  TO  AVOID  POSSIBLE  SELF- INTERACTION  CONTRIBUTION. 

C 

PMASS=MASS(P) 

MASS(P)=0. 

EPSP=EPS 

C    LOOP  OVER  INTERACTION  LIST. 
C    

IF(NMP.GT.O)  THEN 
NTERMS =NTERMS+1 
ITERMS (NTERMS) =1 
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END  IF 

DO  30  I=1,NTERMS 

DX(I)=POS(P, 1) -POS(ITERMS(I) ,1) 
DY(I)=P0S(P,2)  -POSdTERMSd)  ,2) 
C  DZ  (I)  =POS{P,  3) -POSdTERMSd)  ,3) 

DRDOTDRd)  =DX{I)  **2+DY(I)  **2 
SDRDOTD=SQRT(DRDOTDR(I) ) 
RINVEFF ( I ) =1 . / ( SDRDOTD+TINY) 
R3INVEF{I)=RINVEFF(I) / (DRDOTDR ( I ) +TINY) 
EPSI=EPS 

DRDELDR=SDRDOTD*NINTERP/ (EPSP+EPSI) 
SMINDEX ( I ) =DRDELDR 

SMINDEX ( I ) =MIN ( NINTERP , SMINDEX ( I ) ) 
DRSM=MIN ( ONE , DRDELDR- SMINDEX ( I ) ) 
PHSM=(1.-DRSM) *PHSMOOT (SMINDEX! I) )+ 
&  DRSM*PHSM00T(1+SMINDEX(I) ) 

ACCSM= ( 1 . -DRSM) *ACSM00T ( SMINDEX ( I ) ) + 
&  DRSM*ACSMOOT { 1+SMINDEX ( I ) ) 

RINVEFF ( I ) =PHSM*RINVEFF ( I ) 
R3 INVEF { I ) =ACCSM*R3 INVEF ( I ) 
30      CONTINUE 

IF ( OPTION. NE. 'ACC  ')  THEN 

DO  40  I=1,NTERMS 

PHI{P)=PHI(P)-MASSdTERMS(I)  )  *RINVEFF(I) 
40         CONTINUE 

ENDIF 

IF { OPTION. NE. 'POT  ')  THEN 

DO  50  I=1,NTERMS 

ACCI=MASSdTERMS(I)  )  *R3INVEF(I) 
ACC { P , 1 ) =ACC ( P , 1 ) -DX ( I ) *ACCI 
ACC(P,2)=ACC{P,2)-DYd)  *ACCI 
C  ACC{P,3)=ACC(P,3)-DZ(I)*ACCI 

50         CONTINUE 

ENDIF 

C    RESET  MASS  OF  BODY  P. 
C    

MASS(P)=PMASS 

C    IF  REQUIRED,  COMPUTE  QUADRUPOLE  CONTRIBUTION. 
C    
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IF(USEQUAD)  THEN 

C    FILTER  OUT  BODIES. 
C    

CALL  WHENIGT (NTERMS , I TERMS , 1 , NBODSMA, Q INDEX, NQTERMS) 

C    COMPUTE  QUADRUPOLE  INTERACTION  FROM  CELLS. 
C    

DO  60  1=1, NQTERMS 

QTERMS(I)=ITERMS{QINDEX(I) ) 

R2INVEF{I)=RINVEFF(QINDEX(I) ) *RINVEFF (QINDEX ( I ) ) 
QR5INV(I)=R3INVEF(QINDEX(I) ) *R2INVEF(I) 

PHIQUAD(I)=-0.5D0*(DX( QINDEX (I) ) **2*QUAD (QTERMS ( I) ,1)+ 
&  DY(QINDEX(I) ) **2*QUAD (QTERMS (I) ,3)+ 

&  2.*DX(QINDEX{I) ) *DY (QINDEX ( I ) ) * QUAD (QTERMS ( I) ,2) ) 

&  *QR5INV(I) 

60         CONTINUE 

IF ( OPTION. NE. 'ACC  ')  THEN 

DO  70  1=1, NQTERMS 

PHI ( P ) =PHI ( P) +PHIQUAD ( I ) 
70  CONTINUE 

ENDIF 

IF (OPTION. NE. 'POT  ')  THEN 

C   WARNING:  THE  BELOW  IS  ONLY  CORRECT  FOR  TWO  DIMENSIONS. 
C 

DO  80  1=1, NQTERMS 

PHIQUAD ( I ) =5 . *  PHIQUAD ( I ) *R2 INVEF ( I ) 
ACC ( P , 1 ) =ACC ( P , 1 ) +DX (QINDEX ( I )  ) *  PHIQUAD ( I )  + 
&■  (DX(QINDEX(I)  )  *QUAD  (QTERMS  (I)  ,  1)  + 

&  DY(QINDEX(I) ) *QUAD(QTERMS(I) ,2) ) 

&  *QR5INV(I) 

ACC(P,2)=ACC(P,2)+DY(QINDEX(I) ) *PHIQUAD(I)+ 
&  (DY(QINDEX(I) ) *QUAD(QTERMS(I) ,3)+ 

&  DX(QINDEX(I)  )  *QUAD(QTER1-IS(I)  ,2)  ) 

&  *QR5INV(I) 

80  CONTINUE 

ENDIF 

ENDIF 
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RETURN 

END© PROCESS  DC ( BODYCEL , CONCOM , GAS ) 

C 

c 

SUBROUTINE  GRIDEN 
C 
C 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

INTEGER  I1,I,P,J,K 

DOUBLE  PRECISION  DX, DY, DR, HINV, UH, H2INV, AA, DL, RAD, VX, VY, 
&     RHVR(NGPTS) ,FPI,DROLD 


C    FIND  DENSITY  AT  GRID  POINTS  AND  OUTPUT  EVERY  TEN  STEPS. 

C 

c 

DO  I=NB0DIES+1,NB0DIES+4*NGPTS 

RH(I)=O.DO 
ENDDO 

DO  I=1+NMP,NGP-NAGP 
P=BODLIST{I) 
DX=POS ( P , 1) -CMPOS ( 1 ) 
DY=P0S{P,2) -CMPOS (2) 
IF(DABS(DY) .LT.H{P) )  THEN 

IF(DX.GT.P0S(NB0DIES+1,1) -H(P) )  THEN 
DR=10000.D0 

DO  J=NB0DIES+1,NB0DIES+NGPTS 
DROLD=DR 

DR=DSQRT( (POS(J, 1) -DX) **2+DY**2) 
IF(DR.LT.H(P) )  THEN 
HINV=1.D0/H(P) 
UH=DR*HINV 
H2INV=HINV*HINV 
AA=NINTERP*UH 
I1=AA 
DL=AA-I1 
DR=1.D0-DL 
11=11+1 

FPI=C1* (VW3 (Il+l) *DL+VW3 (II) *DR) *MASS(P) *H2INV 
RH{J)=RH(J)+FPI 
ELSEIF{DR.GT.DROLD)  THEN 

GOTO  15 
ENDIF 
ENDDO 
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15  CONTINUE 

ELSEIF(DX.LT.P0S(NB0DIES+NGPTS+1, 1) +H(P) )  THEN 
DR=10000.D0 

DO  J=NB0DIES+NGPTS  +  1 , NBODIES  +  2  *NGPTS 
DR0LD=DR 

DR=DSQRT( (P0S(J,1) -DX) **2+DY**2) 
IF(DR.LT.H(P) )  THEN 
HINV=1.D0/H(P) 
UH=DR*HINV 
H2INV=HINV*HINV 
AA=NINTERP*UH 
I1=AA 
DL=AA-I1 
DR=1.D0-DL 

11=11+1  •  ' 

FPI=C1* (VW3 (Il+l) *DL+mV3 (II) *DR) *MASS ( P) *H2INV 
RH(J)=RH{J)+FPI 
ELSEIF(DR.GT.DROLD)  THEN 

GOTO  25 
END  IF 
ENDDO 
25  CONTINUE 

ENDIF 
ELSEIF(DABS(DX) .LT.H(P) )  THEN 

IF (DY.GT.POS (NBODIES+2 *NGPTS  +  1,  2) -H(P) )  THEN 
DR=10000.D0 

DO  J=NB0DIES+2  *NGPTS  +  1 , NBODIES  +  3  *NGPTS 
DROLD=DR 

DR=DSQRT(  (POS(J,  2) -DY) **2+DX**2) 
IF(DR.LT.H(P) )  THEN 
HINV=1.D0/H(P) 
UH=DR*HINV 
H2INV=HINV*HINV 
AA=NINTERP*UH 
I1=AA 
DL=AA-I1 
DR=1.D0-DL 
11=11+1 

FPI=C1* (VW3 (Il+l) *DL+VW3 (II) *DR) *MASS(P) *H2INV 
RH(J)=RH(J)+FPI 
ELSEIF(DR.GT.DROLD)  THEN 

GOTO  3  5 
ENDIF 
ENDDO 
3  5  CONTINUE 

ELSEIF(DY.LT.P0S(NB0DIES+3*NGPTS+1, 1) +H(P) )  THEN 
DR=10000.D0 

DO  J=NBODIES+3*NGPTS+l,NBODIES+4*NGPTS 
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DROLD=DR 

DR=DSQRT{ (POS(J, 2) -DY) **2+DX**2) 
IF(DR.LT.H(P) )  THEN 
HINV=1.D0/H(P) 
UH=DR*HINV 
H2INV=HINV*HINV 
AA=NINTERP*UH 
I1=AA 
DL=AA-I1 
DR=1.D0-DL 
11=11+1 

FPI=C1*  (VW3  (Il  +  l)  *DL+\'VJ3  (II)  *DR)  *MASS(P)  *H2INV 
RH(J)=RH(J)+FPI 
ELSEIF(DR.GT.DROLD)  THEN 

GOTO  45 
END  IF 
ENDDO 
45  CONTINUE 

ENDIF 
ENDIF 
ENDDO 

WRITE (21,*)  NGPTS , TNOW , MTOT 
DO  I=NB0DIES+1,NB0DIES+NGPTS 

WRITE(21, 100)  RH(I) ,RH(I+NGPTS) , RH ( I+2*NGPTS) , RH ( 1+3 *NGPTS) 
ENDDO 
100     FORMAT (IX, 3 (1PE16.9,2X) , 1PE16.9) 

RETURN 

END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 
©PROCESS  DIRECTIVE ( '*VDIR: ' ) 
Q***********************■l,1,1,*^,^,*■^1,1,*^,■^,^,^,1,^,^,^,^r^,■|r^,^,^,1,^,^,^,i,^,^,^,^,^,i,^,^,^,^,^,^,^,^^,^^^ 

c 
c 

SUBROUTINE  HACKCEL 
C 

c 

c 
c 

C  SUBROUTINE  TO  COMPUTE  MASSES,  CENTER  OF  MASS  COORDINATES, 

C  AND  OPTIONAL  QUADRUPOLE  MOMENTS  OF  CELLS,  PROCESSING  CELLS 

C  IN  ORDER  OF  INCREASING  SIZE.   THE  PERMUTATION  VECTOR  IS 

C  RETURNED  IN  THE  COMMON  VARIABLE  CELLIST.   VECTORIZATION  IS 

C  ACHIEVED  BY  SIMULTANEOUSLY  PROCESSING  ALL  CELLS  AT  THE 

C  SAME  LEVEL  IN  THE  HIERARCHY  (SEE  HERNQUIST,  J.  COMPUT.  PHYS . , 

C  SUBMITTED  [1988] ) . 

C 
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c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

INTEGER  P , FCELL ,LCELL,I,J,K,L,M,N, NSUBC , NNODES 

C    GENERATE  PERMUTATION  OF  CELLS,  ACCORDING  TO  CELLSIZ, 
C    

DO  5  I=1,INCELLS 

CELLIST ( I) =NBODSMA+INCELLS- (I-l) 
5       CONTINUE 

C    INITIALIZE  PROPERTIES  OF  CELLS. 
C    

DO  10  P=NB0DSMA+1,NB0DSMA+INCELLS 
MASS(P)=0. 
POS{P,1)=0. 
POS(P,2)=0. 
C  POS(P,3)=0. 

10      CONTINUE 

IF(USEQUAD)  THEN 

DO  3  0  K=1,2*NDIM-1 

DO  20  P=NB0DSMA+1,NB0DSMA+INCELLS 
QUAD(P,K)=0. 

2  0  CONTINUE 

3  0         CONTINUE 

ENDIF 

C    PROCESS  CELLS  IN  ORDER  OF  INCREASING  SIZE.      ■  ■' 
C    

FCELL=1 

40      CONTINUE 

IF (FCELL. LE.INCELLS)  THEN 

C    DETERMINE  WHICH  CELLS  TO  PROCESS. 
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C*VDIR:  PREFER  SCALAR 

DO  50  I=FCELL,INCELLS 

IF(ABS(CELLSIZ{CELLIST(I) ) -CELLSIZ (CELLIST (FCELL) ) ) 
&  .LT.0.01*CELLSIZ(CELLIST(FCELL) ) )  THEN 

LCELL=I 
ELSE 

GO  TO  60 
ENDIF 
50         CONTINUE 

60         CONTINUE 


C    COMPUTE  PROPERTIES  OF  THE  SELECTED  CELLS,  LOOPING  OVER  SUBCELLS . 
C    

DO  110  J=1,NSUBCEL 

DO  7  0  I=FCELL,LCELL 

ASUBP ( I-FCELL+1 ) =SUBP (CELLIST (I) , J) 
70  CONTINUE 

CALL  WHENIGT(LCELL-FCELL+1, ASUBP, 1 , 0 , ISUBSET, NNODES) 

DO  1=1, NNODES 

PARENT ( I ) =CELLIST ( ISUBSET ( I ) +FCELL-1 ) 

ASUBP (I) =SUBP (PARENT (I) ,J) 
ENDDO 

C*VDIR:  IGNORE  RECRDEPS 

DO  80  1=1, NNODES 
P=PARENT(I) 
K=ASUBP(I) 

MASS ( P ) =MASS ( P ) +MASS ( K ) 
P0S(P,1)=P0S(P,1) +MASS(K) *POS(K, 1) 
POS (P,2)=POS(P,2) +MASS ( K ) *  POS ( K , 2 ) 
C  POS(P,3)=POS(P,3)+MASS(K) *P0S(K,3) 

80  CONTINUE 

110        CONTINUE 

C*VDIR:  IGNORE  RECRDEPS 

DO  120  I=FCELL,LCELL 
P=CELLIST(I) 
POS(P, 1)=P0S(P,1) /MASS(P) 
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POS(P,2)=POS(P,2) /MASS{P) 
C  POS(P,3)=POS(P,3) /MASS(P) 

120        CONTINUE 

C    COMPUTE  OPTIONAL  QUADRUPOLE  MOMENTS. 
C    

IF(USEQUAD)  THEN 

DO  210  J=1,NSUBCEL 

DO  13  0  I=FCELL,LCELL 

ASUBP(I-FCELL  +  1) =SUBP(CELLIST(I)  ,  J) 
130  CONTINUE 

CALL  WHENIGT(LCELL-FCELL+1,ASUBP, 1,0, I SUBSET, NNODES) 

DO  140  1=1, NNODES 

PARENT ( I ) =CELLIST ( I SUBSET ( I ) +FCELL-1 ) 
ASUBP{I)=SUBP(PARENT(I) , J) 
140  CONTINUE 

CALL  WHENIGT (NNODES, ASUBP, 1,NB0DSMA, I SUBSET, NSUBC) 

DO  200  M=1,MIN(2,NDIM) 
DO  19  0  N=M,NDIM 

L=(M-1) *(NDIM-1) +N 

DO  150  1=1, NNODES 

QUAD { PARENT ( I ) , L ) =QUAD { PARENT ( I) ,L)+ 
&  MASS (ASUBP (I) ) *(3 . * ( POS (ASUBP (I) , M) - 

&  POS { PARENT ( I ) , M) ) * ( POS (ASUBP ( I ) , N) - 

&  POS ( PARENT ( I ) ,N) ) ) 

150  CONTINUE 

IF(M.EQ.N)  THEN 

DO  170  K=1,NDIM 

DO  160  1=1, NNODES 

QUAD ( PARENT ( I ) , L ) =QUAD ( PARENT ( I ) ,L)- 
MASS (ASUBP (!))*( POS (ASUBP ( I ) , K) - 
&  POS (PARENT (I) ,K) ) **2 

160  CONTINUE 

170  CONTINUE 

ENDIF 

DO  180  1=1, NSUBC 

TEMPLIS(I) =PARENT(ISUBSET(I) ) 


& 
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QUAD{TEMPLIS(I) , L) =QUAD (TEMPLIS ( I) ,L)+ 
&  QUAD(ASUBP(ISUBSET(I) )  ,L) 

180  CONTINUE 

190  CONTINUE 

200  CONTINUE 

210  CONTINUE 

END IF  ( 

FCELL=LCELL+1 

GO  TO  40 

ENDIF 

RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 

c 
c 

SUBROUTINE  HAD JUST 

c 

c 

C 

c 

C       SUBROUTINE  TO  DYNAMICALLY  ADJUST  THE  SOFTENING  LENGTH  H. 
C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

C 

C       DEFIINITIONS  OF  LOCAL  VARIABLES 
C 

INTEGER  I , P , NUM 

DOUBLE  PRECISION  DTNOW 
C 

C   CALCULATE  NEW  H 
C 

NUM=0 

DTNOW=DTS / 2 . DO  *  *  BNOW 

IF(ADVLIST{1) .EQ.NMP)  NUM=1 
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DO  I=1+NUM,NGAS 

P=ADVLIST{I) 

RHS ( P) =RHS (?) +DTNOW*DRHDT ( P ) 

H(P)=2.D0*ZETA*DSQRT(AVM(P) /RHS(P) ) 
ENDDO 

RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 

c 
c 

SUBROUTINE  HALFSTP(N) 
C 

c 

C 

c 

C       ADVANCES  SYSTEM  A  HALF  STEP. 
C 

c 

c=======================================================^^^^^^^^^^^^^^^^ 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

C    ZERO  OUT  ACCELERATION,  COMPUTE  ACCELERATION,  ADVANCE  VELOCITIES. 
C    

CALL  CORRVEL 
C  

CALL  ZEROACC 
C  

CALL  GRAVITY  CACC  ') 
C  

CALL  MAKESAP 
C  

CALL  MAKELIS 
C  

CALL  DENSITY 
C  

CALL  HYDRO (N) 
C  

CALL  HADJUST 
C  

CALL  STEPVEL 
C  

CALL  STEPPOS 
C  
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CALL  ESTVEL 


C 


RETURN 
END 
SPROCESS  DC(BODYCEL,CONCOM,GAS) 

c 

SUBROUTINE  HPFIX ( P , NVAL , NUM , NBS , FLAG) 
C 
c 

c 
c 

C  SUBROUTINE  TO  FIX  THE  SMOOTHING  LENGTH  OF  A  PARTICLE. 

C  AS  IS,  THIS  SUBROUTINE  ADJUSTS  H(P)  SO  THE  NUMBER  OF 

C  NEIGHBORS  WITHIN  HIJ*  IS  >  NNBMAX/2,  AND  <  2*NNBMAX. 
C 

c 

0====================================================================== 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

C 

C    DECLARATION  OF  LOCAL  VARIABLES. 

C 

DOUBLE  PRECISION  DH 

INTEGER  I, P,FLAG,NVAL, J,NUM,NBS,NBMIN,NBSMAX, PATH (100) , STEPS, 
&      NBOLD 
C 

C 

C    ADJUST  H(I) 

C 

FLAG=0 
STEPS=0 
NBS  =  0 
NBMIN=12 

NB SMAX= 5 * NNBMAX / 2 
45         STEPS=STEPS+1 
PATH (STEPS) =45 
IF ( NBS . LT . NBMIN . AND . NUM . LE . NBSMAX)  THEN 

DH=0.2D0*H(P) 

GOTO  2  5 
ELSEIF (NUM . GT . NBSMAX . AND . NBS . GE . NBMIN)  THEN 

DH=-0.2D0*H(P) 

GOTO  15 
ELSE 

NBMIN=NBMIN-2 
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GOTO  45 
ENDIF 
15         STEPS=STEPS+1 
PATH (STEPS) =15 
H(P)=H(P)+DH 

CALL  FINDNBS(P,NVAL,NUM,NBS, FLAG, PATH, STEPS) 
IFINUM.GT.NBSMAX)  THEN 

IF(NBS.LT.NBMIN)  NBMIN=NBS 
GOTO  15 
ELSEIF(NBS.LT.NBMIN)  THEN 
DH=-0.5D0*DH 
GOTO  3  5 
ENDIF 
RETURN 
25         STEPS=STEPS+1 
PATH (STEPS) =2  5 
H(P)=H(P) +DH 
NBOLD=NBS 

CALL  FINDNBS ( P , NVAL , NUM, NBS , FLAG , PATH , STEPS ) 
IF(NBS.LT.NBOLD)  THEN 
H{P)=H(P) -DH 
NBMIN=NBOLD 
GOTO  99 
ENDIF 

IF ( NBS . LT . NBMIN . AND . NUM . LE . NBSMAX )  THEN 
DH=0.2D0*H(P) 
GOTO  25 
ELSEIF (NUM . GT . NBSMAX . OR . NBS . GT . 3  *NNBMAX/2 )  THEN 
DH=-0.5D0*DH 
GOTO  3  5 
ENDIF 
RETURN 
35         STEPS=STEPS+1 

PATH (STEPS) =3 5 
55         H(P)=H(P)+DH 

CALL  FINDNBS (P, NVAL, NUM, NBS, FLAG, PATH, STEPS) 
IF (NUM . GT . NBSMAX . OR . NBS . GT . 3  *NNBMAX/ 2 )  THEN 
DH=-0.5D0*DABS(DH) 
GOTO  3  5 
ENDIF 

IF (NBS. LT. NBMIN)  NBMIN=NBS 
99         RETURN 
END 
©PROCESS  DC(BODyCEL,CONCOM,GAS) 

C 

SUBROUTINE  HYDRO (N) 
C 
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c 

c 
c 

C  SUBROUTINE  TO  CALCULATE  THE  DENSITY  AND  PRESSURE-VISCOUS 

C  FORCES  FOR  GASEOUS  PARTICLES.  THE  SMOOTHING  LENGTH  FOR 

C  GASEOUS  PARTICLES  IS  LOCALLY  REAJUSTABLE . 

C  N.  HIOTELIS  &  R.  DRIMMEL  '91 

C 

C 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

C 

C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

INTEGER  I, J,L,I1,FLAG,INDX,P,NUM,NVAL, INDEX (2*NNBMAX) , 
&      NNBI,K,N 

DOUBLE  PRECISION  H2 , DR2 , DR, UH, AA, DL, DX, CIJ, HIJ, HINV, 
&  DY,DVX,DVY,APR,PIIJ,PRF,SIJ,FPI,CC,H4INV,HTA,X,Y, 
&      RHIJ , MUI J , VI sex , VISCY , MUMAX , VREL , DUDTl , DUDT2 , DTNOW 

DIMENSION  INDX{NSTMAX) 

C 

c 

C    MAKE  PRESSURE  AND  VISCOSITY  ADJUSTMENT  TO  THE  ACCELERATION 

C 

C 

DTN0W=DTS/2 .D0**BNOW 
HTA=0.0025D0 
NUM=0 

IF{ADVLIST(1) .EQ.NMP)  NUM=1 
DO  I=1+NUM,NGAS 
P=ADVLIST(I) 
MUMAX=O.DO 
CC=RH(P) 
VISCX=O.DO 
VISCY=O.DO 
DUDTl =0. DO 
DUDT2=0.D0 
NNBI=NNBS(P) 
DO  L=1,NNBI 

J=LIST(L,P) 
HIJ={H(P)+H(J) ) *0.5D0 
HINV=1.D0/HIJ 
H4INV=HINV**4 
DVX=VET(P, 1) -VET(J, 1) 
DVY= VET ( P , 2 ) -VET { J , 2 ) 
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VREL=DSQRT (DVX*DVX+DVY*DVY) 

DX=POS(P, 1) -POS(J, 1) 

DY=P0S{P,2) -P0S(J,2) 

APR=DX*DVX+DY*DVY 

DR2=DX*DX+DY*DY 

DR=DSQRT(DR2) 

UH=DR*HINV 

AA=NINTERP*UH 

I1=AA 

DL=AA-I1 

DR=1.D0-DL 

11=11+1 

FPI=(DR*VDIVW3 (I1)+DL*VDIVW3 (Il+l) ) *C2*MASS ( J) *H4INV 
C   POLYTROPIC  EQUATION  OF  STATE: 

IF(GAM1^.NE.2.D0)  THEN 

PRF=2.D0*ISS*DSQRT( (CC*RH(J) ) **GMTWO) 
ELSE 

PRF=2.D0*ISS 
END  IF 
C   IDEAL  GAS: 

C  PRF=2 .D0*GMONE*DSQRT(U{P) *U(J) / (CC*RH(J) ) ) 

C   PRESSURELESS : 
C  PRF=O.DO 

CIJ=(C(P)+C(J) ) *0.5D0 
HIJ=(H(P)+H(J) )*0.5D0 
RHIJ=(CC+RH(J) ) *0.5D0 
MUIJ=0.5D0*HIJ*APR/ (DR2+HTA*HIJ* *2 ) 
PIIJ=-ALFA*CIJ*MUIJ/RHIJ 
IF(SWITCH)  MUIJ=MUIJ* {F(P)+F{J) ) *0.5DO 
MUIJ=MIN ( 0 . DO , MUIJ) 
MUMAX=MAX ( DABS ( MUIJ ) , MUMAX ) 
C  PIIJ=(-ALFA*CIJ+BHTA*MUIJ) *MUIJ/RHIJ 

PIIJ=PIIJ+BHTA*MUIJ**2/RHIJ 
DUDTl=DUDTl+0 . 5D0*PRF*APR*FPI 
DUDT2=DUDT2+0 . 5D0*PIIJ*APR*FPI 
SIJ=(PRF+PIIJ) *FPI 
VISCX=VISCX+DX*SIJ 
VISCY=VISCY+DY*SIJ 
ENDDO 

ACC(P,1)=ACC(P,1) -VISCX 
ACC(P,2)=ACC{P,2) -VISCY 
C   THE  NEXT  FIVE  STATEMENTS  ARE  FOR  THE  POLYTROPIC  EQ .  OF  STATE. 
IF(DTN0W*DUDT1+U(P) . LT . 0 . DO )  THEN 

DUDT1=-ISS*CC**GMTW0*DELV(P) 
ENDIF 

UD0T(P)=DUDT1 

IF(N.NE.O)  QT0T=QT0T+DUDT2*MASS{P) *DTN0W 
C   THE  NEXT  STATEMENTS  ARE  TO  BE  USED  WITH  THE  FIRST  LAW. 
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C  IF(DTNOW*  (DUDTli-DUDT2)+U(P)  .LT.O.DO)  THEN 

C  DUDT1=-GM0NE*U(P) *DELV(P) /CC 

C  ENDIF 

C  UDOT ( P ) =DUDT1 +DUDT2 

FPI=DABS(DELV(P) ) 
&  +(C{P)+1.2D0*(ALFA*C(P) +BKTA*MUMAX) ) / (0.5D0*H(P) ) 

DT(P)=CN/FPI 
ENDDO 
RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 

Q********■k*****■^*^,********^,******^,*■lr*■^^,***^,■k-l:*■l,***1,*■l,■l,■|r^,^,*■^r■k■k1r^,^,^r^,^,1,^.^r^,^, 
C 

c 

SUBROUTINE  INBODS 
C 

c 

c 
c 

C  SUBROUTINE  TO  READ  IN  THE  DATA  ASSOCIATED  WITH  THE  BODIES  FROM 

C  THE  ASCII  INPUT  FILE.   THE  RECORDS  ARE  ASSUMED  TO  BE  IN  THE 

C  FOLLOWING  ORDER: 
C 

C  INBODIES,NDIM,TNOW,NGP,NMP,QTOT 

C  X(1),Y(1),Z(1) 

C  VEL (1,1), VEL (1,2), VEL (1,3) 

C  MASS(l) ,U(1) ,H(1) 

C 

c 

c 

C  X(NGP) ,Y(NGP) ,Z(NGP) 

C  VEL(NGP,1) ,VEL(NGP,2) ,VEL(NGP,3) 

C  MASS (NGP) ,U(NGP) ,H (NOP) 

C  X(NGP+1) ,Y(NGP+1) ,Z(NGP+1) 

C  VEL(NGP+1, 1) ,VEL(NGP+1,2) , VEL (NGP+1 , 3 ) 

C  MASS (NGP+1) 

C 

c 
c 

C  X(NBODIES) ,Y(NBODIES) ,Z(NBODIES) 

C  VEL(NB0DIES,1) , VEL (NBODIES, 2 ) , VEL (NBODIES , 3 ) 

C  MASS (NBODIES) 

C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 
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C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

INTEGER  P , NDIMI , I 

C    READ  IN  BODY  DATA. 
C    

READ(UBODSIN, *)  NBODIES, NDIMI , TNOW, NGP , NMP, QTOT 

IF (NBODIES  +  4  *NGPTS . GT . NBODSMA . OR . NDIMI . NE . NDIM) 
&      CALL  TERRORC  ERROR  IN  INBODS-- INCONSISTENT  INPUTS  ') 
C  

DO  1=1, NGP 

READ(UBODSIN, *)  POS ( I , 1 ) , POS ( I , 2 ) 

READ(UBODSIN, *)  VEL ( I , 1 ) , VEL ( I , 2 ) 

READ(UBODSIN,*)  MASS ( I ) , U ( I) , H ( I ) 
C  READIUBODSIN, *)  MASS ( I) , H ( I) , U ( I) 

ENDDO 

DO  I=NGP+1, NBODIES 

READ(UBODSIN, *)  POS ( I , 1) , POS ( I , 2 ) 

READ(UBODSIN, *)  VEL ( I , 1) , VEL ( I , 2 ) 

READ(UBODSIN, *)  MASS{I),H(I) 
ENDDO 

CLOSE (UBODSIN) 

RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 

c 
c 

SUBROUTINE  INITLIS 
C 
C 

c 
c 

C      SUBROUTINE  TO  FIND  THE  INITIAL  LIST  OF  NEIGHBORS. 
C 

c 
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/♦INCLUDE  NEWHEAD  FORTRAN  A 

INTEGER  NVAL, I, J, K, L, P,M,NUM, FLAG, INDX (1000 ) ,NUMAX, PMAX,NBS, 
&.  TLIST(2*NNBMAX,NGPMAX)  ,  C0UNT2  ,  COUNTl ,  CLIST  (  20  *NNBMAX)  , 

&       NADJ,NFIX,NBSMIN 

DOUBLE  PRECISION  DR, HIJ, HP, HOLD, RAD ( 3 'NNBMAX) , R, AVADJ 

C 

C 

C     FIND  NEAREST  NEIGHBORS  OF  ACTIVE  PARTICLES 

C 

DO  I=NMP+1,NGP-NAGP 
P=BODLIST(I) 
INDL(P)=0 
ENDDO 
DO  I=1,NACC 

P=ACCLIST(I) 
INDL(P)=0 
ENDDO 
DO  I=1,4*NNBMAX 

CLIST(I)=0 
ENDDO 
NUMAX=0 
COUNTl =0 
COUNT2=0 
NFIX=0 
AVADJ=O.DO 
DO  I=1,NNBSLIS 
P=NBSLIST(I) 
FLAG=0 
NBSMIN=10 

CALL  WALKIT(P, (H{P)/SOF) ,NVAL) 
15      NUM=0 
NBS=0 

DO  J=1,NVAL 
K=TEMPLIS(J) 
HIJ=(H{K)+H(P) ) *0.5D0 
IF(WORKVEC(J) .LE.HIJ/SOF)  THEN 
NUM=NUM+1 
INDX(NUM)=J 
IF{WORKVEC(J) .LE.HIJ)  THEN 

NBS=NBS+1 
ENDIF 
ENDIF 
ENDDO 

IF(NUM.GT.NUMAX)  THEN 
PMAX=P 
NUMAX=NUM 
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HP=H(P) 
L=NVAL 
END  IF 

IF (NUM . GT . 5  *NNBMAX/ 2 . OR . NBS . LT . NBSMIN )  THEN 
IF(FLAG.EQ.O)  THEN 
FLAG=1 
HOLD=H(P) 

CALL  HPFIX(P,NVAL,NUM,NBS,NADJ) 
NFIX=NFIX+1 
AVADJ=AVADJ+NADJ 
IF(H(P) .GT.HOLD)  THEN 
C0UNT1=C0UNT1+1 
CLIST(C0UNT1)=P 
ELSE 

COUNT2=COUNT2+l 
CLIST ( 18*NNBMAX+COUNT2 ) =P 
ENDIF 

IF (NBS. LT. NBSMIN)  NBSMIN=NBS 
GOTO  15 
ELSE 

WRITE (ULOG, *)  '    NUM=',NUM, '    NVAL= ' , NVAL, '    NBS= ' , NBS 
CALL  TERROR ('  ERROR  IN  INITLIS .  ') 
ENDIF 
ENDIF 

NNB(P)=NUM 
DO  J=1,NUM 

RAD  { J )  =WORKVEC  { INDX  ( J )  ) 
SLIST(J,P)=TEMPLIS(INDX{J) ) 
ENDDO 
DO  J=1,NUM 

K=TEMPLIS(INDX(J) ) 
IF(RAD{J) .GT. (H(K)/SOF) )  THEN 
INDL(K)=INDL(K)+1 
TLIST(INDL(K) ,K)=P 
ENDIF 
ENDDO 
ENDDO 
C 

C     FIND  NEAREST  NEIGHBORS  TO  ACCRETED  PARTICLES 
C 
c 

DO  I=1,NACC 
P=ACCLIST(I) 
NBSMIN=10 
FLAG=0 

CALL  WALKIT(P, (H(P) /SOF) ,NVAL) 
25      NUM=0 
NBS=0 
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DO  J=1,NVAL 

HIJ=(H(P)+H{TEMPLIS(J) ) ) *O.5D0 
IF(WORKVEC(J) .LT.HIJ/SOF)  THEN 
NUM=NUM+1 
INDX(NUM) =J 
IF(WORKVEC(J) .LT.HIJ)  THEN 

NBS=NBS+1 
ENDIF 
ENDIF 
ENDDO  _       ..  ■" 

IF(NUM.GT.NUMAX)  THEN 
PMAX=P 

NUMAX=NUM   .;   ■  ■  ,  _. 

HP=H{P)  "     ■   ■ 

L=NVAL 
ENDIF  '  '       . 

IF(NUM.GT.5*NNBMAX/2 . OR.NBS . LT .NBSMIN)  THEN 
IF(FLAG.EQ.O)  THEN 
FLAG=1 
HOLD=H(P) 

CALL  HPFIX(P,NVAL,NUM,NBS,NADJ) 
NFIX=NFIX+1 
AVADJ=AVADJ+NADJ 
IF(H(P) .GT.HOLD)  THEN 
C0UNT1=C0UNT1+1 
CLIST(C0UNT1)=P 
ELSE 

COUNT2=COUNT2+l 
CLIST ( 18*NNBMAX+COUNT2 ) =P 
ENDIF 

IF (NBS.LT. NBSMIN)  NBSMIN=NBS 
GOTO  2  5 
ELSE 

WRITE (ULOG, *)  '      NUM=',NUM, '    NVAL= ' , NVAL 
CALL  TERROR ('  ERROR  IN  INITLIS  ') 
ENDIF 
ENDIF 
DO  J=1,NUM 

K=TEMPLIS(INDX(J) ) 

IF(WORKVEC(INDX(J) ) . GT . (H(K) /SOF) )  THEN 
INDL{K)=INDL{K)+1 
TLIST{INDL(K) ,K)=P 
ENDIF 
ENDDO 
NVAL=0 
DO  J=1,NUM 

K=TEMPLIS{INDX{J) ) 

IF(WORKVEC(INDX(J) ) . LT . (H ( P) +H (K) ) *0.5D0)  THEN 
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NVAL=NVAL+1 
SLIST(NVAL,P)=K 
ENDIF 
ENDDO 

NNB ( P ) =NVAL 
ENDDO 

if(nfix.ne.o)  avadj=avadj/nfix 
if(nx;max.ge.5*nnbmax)  then 

WRITE (ULOG, *)  '   BADH:' 

WRITE(ULOG, *)  PMAX,L,NUMAX,NNB(PMAX) ,TNOW 
WRITE (ULOG, 100)  P0S(PMAX,1) ,P0S{PMAX,2) , HP, RHS ( PMAX) 
100      F0RMAT(5X,4(1PE12.5,2X) ) 
ENDIF 

WRITE (22,200)  NMAX , BNOW, NADVLIS , NNBSLIS , COUNTl , C0UNT2 , NFIX , AVADJ 
200   FORMAT(5X,7(I5,2X) ,1PE12.5) 
C 
C   CHECK  FOR  OVERFLOW. 

C 

NUM=0 

DO  1=1, NNBSLIS 
P=NBSLIST(I) 

IF(INDL(P) .GT.2*NNBMAX)  THEN 
NUM=NUM+1 
INDX(NUM)=P 
ENDIF 
ENDDO 

DO  1=1, NUM 
P=INDX(I) 

WRITE (ULOG, *)  P, INDL(P) ,P0S(P,1) ,P0S(P,2) 
ENDDO 

IF(NUM.NE.O)  CALL  TERROR ( '  OVERFLOW  IN  TLIST  ') 
NXM=0 

DO  I=1,NACC 
P=ACCLIST(I) 

IF(INDL(P) .GT.2*NNBMAX)  THEN 
NUM=NUM+1 
INDX(NUM)=P 
ENDIF 
ENDDO 

DO  1=1, NUM 
P=INDX(I) 

WRITE (ULOG,*)  P, INDL(P) ,P0S(P,1) ,P0S{P,2) 
ENDDO 

IF(NUM.NE.O)  CALL  TERROR ( '  OVERFLOW  IN  TLIST.') 
IF(COUNTl.GT.18*NNBMAX.OR.COUNT2 .GT . 2*NNBMAX)  THEN 
WRITE (ULOG, * )  COUNTl , C0UNT2 
CALL  TERROR ( '  OVERFLOW  IN  CLIST .  ' ) 
ENDIF 
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NUM=0 

DO  I=1,NNBSLIS 
P=NBSLIST(I) 

IF(NNB(P) +INDL(P) .GT.7*NNBMAX/2)  THEN 
NUM=NUM+1 
INDX(NUM)=P 
ENDIF 
ENDDO 

IF(NUM.NE.O)  THEN 
DO  1=1, NUM 
P=INDX(I) 

WRITE(ULOG,3  00)  P,NNB{P) , INDL(P) , P0S(P,1) ,P0S(P,2) , TNOW 
300         FORMAT {IX, 15 , 2X, 2 ( 13 , 2X) , 3 (1PE12.5,2X) ) 
ENDDO 

CALL  TERROR ('  OVERFLOW  IN  SLIST.  ') 
ENDIF 
NUM=0 
DO  I=1,NACC 

P=ACCLIST(I) 

IF{NNB(P)+INDL(P) .GT.7*NNBMAX/2)  THEN 
NUM=NUM+1 
INDX(NUM)=P 
ENDIF 
ENDDO 

IF(NUM.NE.O)  THEN 
DO  1=1, NUM 
P=INDX(I) 

WRITE (ULOG, 3  00)  P,NNB{P) ,INDL(P) ,P0S(P,1) ,P0S(P,2) , TNOW 
ENDDO 

CALL  TERROR!'  OVERFLOW  IN  SLIST   ') 
ENDIF 
CC     GOTO  3  5 
C 

C    TAKE  EXTRA  PARTICLES  OUT  OF  TLISTS  OF  PARTICLES  WHOSE  H  INCREASED. 
C 

DO  I=1,C0UNT1 
P=CLIST(I) 
NUM=0 
DO  J=1,INDL(P) 

DO  50  K=1,NNB(P) 

IF{TLIST(J, P) .EQ.SLIST(K, P) )  THEN 
NUM=NUM+1 
INDX(NUM)=J 
ENDIF 
50  CONTINUE 

ENDDO 
IF(NUM.GT.O)  THEN 
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L  =  l 

M=INDX(1) -1 

DO  J=INDX(1) , INDX(NUM) 

IF(J.EQ.INDX(L+1) )  THEN 

L=L+1 
ELSE 

M=M+1 

TLIST(M, P) =TLIST(J, P) 
ENDIF 
ENDDO 

DO  J=INDX{NUM) +1, INDL(P) 
M=M+1 

TLIST(M, P) =TLIST(J, P) 
ENDDO 
INDL(P)=M 
ENDIF 

CLIST(I)=NUM 
DO  J=1,NNB{P) 
K=SLIST(J,P) 

R=DSQRT( (P0S(P,1)-P0S(K,1) ) * *2+ ( POS ( P, 2 ) -POS (K, 2 ) ) **2) 
IF(R.LT.H{K) /SOF)  THEN 
DO  M=1,NNB(K) 

IF(SLIST(M,K) .EQ.P)  GOTO  70 
ENDDO 

NNB(K)=NNB(K)+1 
SLIST(NNB(K) , K) =P 
70  CONTINUE 

ENDIF 
ENDDO 
ENDDO 
C 

C    REMOVE  PARTICLES  IN  TLIST  THAT  NO  LONGER  FIT  CRITERION. 
C 

DO  I=1,C0UNT2 

P=CLIST(18*NNBMAX+I) 
HP=H(P) 
NUM=0 

DO  J=1,INDL(P) 
K=TLIST{J,P) 

R=DSQRT( {POS(P, 1) -P0S(K,1) ) * *2+ ( POS ( P, 2 ) -POS (K, 2 ) ) **2) 
HIJ=(HP+H(K) ) *0.5D0 
IF(R.GT.HIJ/SOF)  THEN 
NUM=NUM+1 
INDX{NUM)=J 
ENDIF 
ENDDO 
IF{NUM.GT.O)  THEN 
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L=l 

M=INDX(1) -1 

DO  J= INDX ( 1 ) , INDX ( NUM ) 

IF(J.EQ.INDX(L+1) )  THEN 

L=L+1 
ELSE 

M=M+1 

TLIST(M,P) =TLIST(J,  P) 
END  IF 
ENDDO 

DO  J=INDX{NUM)+1,INDL(P) 
M=M+1 

TLISTiM, P) =TLIST(J, P) 
ENDDO 
INDL(P)=M 
END  IF 
C 

C    CHECK  CONSISTENCY  OF  LISTS  OF  SURROUNDING  PARTICLES. 
C 

NUM=0 

DO  J=1,NNBSLIS 
K=NBSLIST(J) 

R=DSQRT( (P0S(P,1) -P0S(K,1) ) **2+ (POS (P,  2 ) -P0S(K,2) ) **2) 
IF(R.LT.H(K) /SOF.AND.R.GT.HP/SOF)  THEN 
NUM=NUM+1 
WORKVEC(NUM)=R 
TEMPLIS{NUM)=K 
ENDIF 
ENDDO 
DO  J=1,NACC 

K=ACCLIST(J) 

R=DSQRT( (P0S{P,1)-P0S{K,1) ) * *2+ ( POS ( P, 2 ) -POS (K, 2 ) )**2) 
IF (R.LT.H(K) /SOF.AND.R.GT.HP/SOF)  THEN 
NUM=NUM+1 
WORKVEC(NUM)=R 
TEMPLIS(NUM)=K 
ENDIF 
ENDDO 
DO  J=1,NUM 

R=WORKVEC(J) 
K=TEMPLIS(J) 
HIJ=(HP+H(K) ) *0.5D0/SOF 
IF(R.GT.HIJ)  THEN 
C*VDIR:  PREFER  SCALAR 

DO  L=1,NNB(K) 

IF(SLIST{L,K) .EQ.P)  THEN 
DO  M=L,NNB{K)-1 

SLIST(M,K)=SLIST(M+1,K) 
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ENDDO 

NNB(K)=NNB(K)-1 
GOTO  60 
END  IF 
ENDDO 
60  CONTINUE 

ELSE 

DO  L=l, INDL(P) 

IF(K.EQ.TLIST(L,P) )  GOTO  40 
ENDDO 

TLIST(INDL(P)+1,P)=K 
INDL(P)=INDL(P)+1 
40  CONTINUE 

ENDIF 
ENDDO 

ENDDO 

CC3  5   CONTINUE 

C 

C    PUT  PARTICLES  IN  TLIST  INTO  SLIST. 

C 

DO  I=1,NNBSLIS 
P=NBSLIST(I) 

IF(NNB(P)+INDL(P) .GT.3*NNBMAX)  THEN 
WRITE ( ULOG ,* )  P,NNB(P) , INDL(P) 
CALL  TERROR {'  OVERFLOW  IN  INITLIS.  ') 
ENDIF 
ENDDO 

DO  I=1,NACC 
P=ACCLIST(I) 

IF(NNB(P)+INDL{P) . GT . 3 *NNBMAX) 
&     CALL  TERROR ('  OVERFLOW  IN  INITLIS   ') 
ENDDO 

DO  I=1,NNBSLIS 
P=NBSLIST(I) 
NUM=NNB(P) 
DO  J=1,INDL(P) 
NUM=NtrM+l 

SLIST{NUM, P) =TLIST{J, P) 
ENDDO 

NNB(P) =NUM 
ENDDO 
DO  I=1,NACC 

P=ACCLIST(I) 

NUM=NNB(P) 

DO  J=1,INDL{P) 


NUM=NUM+1 

SLIST (NUM, P) =TLIST ( J, P) 
ENDDO 

NNB(P) =NUM 
ENDDO 

C 

C    BUILD  LIST  FROM  SLIST. 

C 


DO  I=1,NNBSLIS 
P=NBSLIST(I) 
NUM=0 
HP=H(P) 
DO  J=1,NNB(P) 
K=SLIST(J, P) 

DR=DSQRT( (POS(P, 1) -P0S(K,1) ) * *2+ (POS ( P, 2 ) -POS (K, 2 ) ) **2) 
HIJ=(HP+H(K) ) *0.5D0 
IF(DR.LT.HIJ)  THEN 
NUM=NUM+1 
INDX(NUM)=J 
ENDIF 
ENDDO 
IF(NUM.GT.2*NNBMAX)  THEN 

WRITE (ULOG, *)  P,NUM,P0S(P,1) ,P0S(P,2) 
CALL  TERROR ('  OVERFLOW  IN  LIST.  ') 
ENDIF 
DO  J=1,NUM 

LIST(J,P)=SLIST(INDX{J)  ,  P) 
ENDDO 

NNBS(P)=NUM 
ENDDO 
DO  I=1,NACC 

P=ACCLIST(I) 
NUM=0 
HP=H(P) 
DO  J=1,NNB(P) 
K=SLIST(J,P) 
HIJ=(HP+H(K) ) *0.5D0 

DR=DSQRT( (P0S(P,1)-P0S(K, 1) ) **2+ ( POS (P, 2 ) -POS (K, 2 ) ) **2) 
IF(DR.LT.HIJ)  THEN 
NUM=NUM+1 
INDX(NUM)=J 
ENDIF 
ENDDO 
IF(NUM.GT.2*NNBMAX)  THEN 

WRITE (ULOG, *)  P,NUM,P0S(P,1) ,P0S(P,2) 
CALL  TERROR ('  OVERFLOW  IN  LIST  ') 
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ENDIF 

DO  J=1,NUM 

LIST(J,P)=SLIST(INDX(J) ,P) 
ENDDO 

NNBS(P)=NUM 
ENDDO 

RETURN 

ENDiaPROCESS  DC  ( BODYCEL ,  CONCOM,  GAS ) 

c 
c 

SUBROUTINE  INITPAR 
C 

c 

c 

c 

C      SUBROUTINE  TO  INITIALIZE  SYSTEM  PARAMETERS  THAT  DEPEND  ON 

C      EITHER  THE  INPUT  DATA  OR  DEFINED  PARAMETERS. 

C 

C 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

DOUBLE  PRECISION  XW, XW2 , DELDRG, XW3 , XW4 , CVMGT, PSIO , DPSI , R, W 
INTEGER  P, I,K,NINTER2 

C 

C         INITIALIZATION  OF  THE  W3  2D  SPLINE 

C 

NINTER2=NINTERP/2 
DO  50  I=1,NINTER2+1 

W=(I-1) /DFLOAT(NINTERP) 
VW3 (I)=1.D0-6.D0*W**2+6.D0*W**3 
VDIVW3 (I)=-2.D0+3.D0*W 
50     CONTINUE 

DO  60  I=NINTER2+1,NINTERP+1 
W=(I-1) /DFLOAT(NINTERP) 
VW3 (I)=2.D0* (l.DO-W) **3 
VDIVW3 (I) =- (l.DO-W) **2/W 
60     CONTINUE 
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PI=4.D0*DATAN(1.D0) 
C1=40.D0/ (7.D0*PI) 
C2=240.D0/ {7.D0*PI) 
IF(NMP.NE.O)  MASS1=MASS(NMP) 
ARAD=H(1) 


C    INITIALIZE  MISC.  USEFUL  NUMBERS. 
C    

IDUM=-1 

MINUST  =  -2. DO 

TINY=l.E-20 

ZERO=0.D0 

ONE=1.DO 

TWO=2.D0 

GMONE=GAMMA- ONE 

GMTWO=GAMMA-TWO 

MDOT=0.D0 

TAM=O.DO 

DO  K=l, 3 

TAAM(K)=O.DO 
ENDDO 
TAEK=O.DO 
TAE=O.DO 
NAGP=0 
NACC=0 
BNOW=0 
SOF=0.8D0 
DO  1=0,50 

LT(I)=O.DO 
ENDDO 
RSIZE=0. 
DO  I=1,NDIM 

RBMIN(I)=0. 
ENDDO 

C    INITIALIZE  SIZE  PARAMETER  FOR  BODIES. 
C    

DO  5  P=1,NB0DIES 

CELLSIZ(P)=0. 

BODLIST(P)=P 

ADVLIST(P)=P 

TBIN(P)=-1 
5       CONTINUE 

NBODLIS=NBODIES 
NADVLIS=NBODIES 
NGAS=0 
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1=0 

D0WHILE(ADVLIST(I+1) .LE.NGP.AND. (I+l) .LE.NADVLIS) 

1  =  1  +  1 
ENDDO 
NGAS=I 
DO  K=1,NDIM 

DO  P=1,NB0DIES 

DVEL(P,K)=VEL(P,K) 

ENDDO 
ENDDO 
DO  I=1+NMP,NGP 

NBSLIST(I-NMP) =BODLIST(I) 
ENDDO 
NNBSLIS=NGP-NMP 

C    INITIALIZE  CENTER  OF  MASS  DATA. 
C 

DO  K=1,NDIM 

CMVEL(K)=O.DO 

CMPOS(K)=0.D0 
ENDDO 
MTOT=0.D0 
DO  I=1,NB0DLIS 

P=BODLIST(I) 

MTOT=MTOT+MASS { P) 
ENDDO 

DO  K=1,NDIM 

DO  I=1,NB0DLIS 
P=BODLIST(I) 

CMVEL(K)=CMVEL(K) +MASS{P) *VEL(P,K) 
CMPOS (K) =CMPOS { K) +MASS ( P) *POS { P , K) 
ENDDO 

CMPOS (K)=CMPOS(K) /MTOT 
CMVEL ( K) =CMVEL ( K) /MTOT 
ENDDO 
DO  K=1,NDIM 

POS(0,K)=CMPOS(K) 
ENDDO 

C    RESET  'GRID'  PARTICLES  FOR  SPECTRAL  TIME  ANALYSIS. 
C    

DELR=(1.D0-0.1D0) /DFLOAT (NGPTS-1 ) 
DO  I=NB0DIES+1,NB0DIES+NGPTS 

POS ( I , 1) =0 . IDO+DELR* ( I-1-NBODIES ) +CMP0S ( 1 ) 

POS{I,2)=CMPOS(2) 
ENDDO 
DO  I=NB0DIES+1+NGPTS,NB0DIES+2*NGPTS 
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POSd,  1)=-0.1D0-DELR*  ( I-1-NBODIES-NGPTS)  +CMPOS  { 1 ) 

POS(I,2)=CMPOS(2) 
ENDDO 
DO  I=NBODIES+l+2*NGPTS,NBODIES+3*NGPTS 

POS ( 1 , 2 ) =0 . IDO+DELR* ( I-l-NBODIES-2  *NGPTS) +CMPOS (2 ) 

P0S(I,1)=CMP0S(1) 
ENDDO 
DO  I=NBODIES+l+3*NGPTS,NBODIES+4*NGPTS 

POS ( 1 , 2 ) =-0 . IDO-DELR* ( I-l-NBODIES-3  *NGPTS) +CMPOS (2 ) 

P0S(I,1)=CMP0S(1) 
ENDDO 

C 

C    INITIALIZE  GAS  VELOCITIES 

C 

DO  K=1,NDIM 

DO  I=1,NB0DIES 

VET(I,K)=VEL(I,K) 

ENDDO 
ENDDO 

C    INITIALIZE  TIME  PARAMETERS. 
C    

IF(TNOW.EQ.O . )  THEN 

TDUMP=TD 
ELSE 

TDUMP=DINT(TNOW/TD) *TD  +  TD 
ENDIF 
TPOS=TNOW 
DTS=O.DO 
T0L2 INV= 1 . / ( TOL  *  TOL ) 

C 

C    INITIALIZE  VARIABLES  AND  ARRAYS  FOR  GRAVITATIONAL  FIELD  SMOOTHING 

C    INTERPOLATION.   INTERPOLATION  PERFORMED  IN  DISTANCE. 

C 

DELDRG=2 . /NINTERP 

DO  3  0  I=0,1+NINTERP 

XW=I*DELDRG 

XW2=XW*XW 

XW3=XW2*XW 

XW4=XW2*XW2 

PHSMOOT(I)=CVMGT(-2.D0*XW3* (ONE/ 3 . -3 . *XW2/20 . +XW3 /20 . )+ 
&  7.*XW/5. , -ONE/15. +8. *XW/5.-XW3* (4./3.-XW+ 

&  3 .*XW2/10.-XW3/3  0.) ,XW.LE.ONE) 

PHSMOOT ( I ) =CVMGT ( ONE , PHSMOOT ( I ) , XW . GE . TWO ) 

ACSM00T(I)=CVMGT(XW3* (4./ 3 . -6 . *XW2 /5 . +0 . 5*XW3 ) , -ONE/ 15.+ 
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&  8. *XW3/3.-3 .*XW4+6.*XW3*XW2/5.-XW4*XW2/6. , 

&  XW.LE.ONE) 

ACSMOOT(I) =CVMGT(ONE,ACSMOOT(I) ,XW.GE.TWO) 
3  0      CONTINUE 

RETURN 

END 
(3 PROCESS  DC{BODYCEL,CONCOM,GAS) 
©PROCESS  DIRECTIVE ( '*VDIR: ' ) 

c 
c 

SUBROUTINE  INITPOS 
C 

c 

c 
c 

C  SUBROUTINE  TO  APPLY  CORRECTION  FACTOR  TO  MAKE  THE  LEAP-FROG 

C  ALGORITHM  SELF-STARTING  (HERNQUIST  AND  KATZ,  AP .  J.  SUPPL . , 

C  IN  PRESS  [1988] )  . 
C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

DOUBLE  PRECISION  DT2  ,  R 
INTEGER  P,K,I 

C    LOOP  OVER  ALL  SPATIAL  COORDINATES  FOR  ALL  BODIES. 
C    

DT2=DTIME**2 

DO  200  K=1,NDIM 
C*VDIR:  IGNORE  RECRDEPS 

DO  100  I=1,NB0DLIS 
P=BODLIST(I) 

POS(P,K)=POS(P,K) +ACC(P,K) *DT2*0.12  5D0 
100        CONTINUE 
2  00     CONTINUE 
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c 

C     MOVE  ACCRETED  PARTICLES  WITH  P=l 

C 

DO  K=1,NDIM 
C*VDIR:  IGNORE  RECRDEPS 
DO  I=1,NACC 

P=ACCLIST(I) 

POS(P,K)=POS(P,K) +ACC(1,K) *DT2*0.125D0 
ENDDO 
ENDDO 

MTOT=0.D0 
DO  I=1,NB0DLIS 
P=BODLIST(I) 
MTOT=MTOT+MASS ( P) 
ENDDO 

CMPOS{1)=O.DO 
CMPOS(2)=0.D0 
DO  K=1,NDIM 

DO  I=1,NB0DLIS 
P=BODLIST(I) 

CMPOS (K) =CMPOS (K) +MASS ( P) *POS ( P, K) 
ENDDO 

CMPOS (K)=CMPOS(K) /MTOT 
ENDDO 
DO  I=1,NB0DIES 

R=DSQRT( (P0S(I,1) -CMPOS (1) ) **2+ ( POS ( I , 2 ) -CMPOS (2) ) **2) 
MINDX ( I) =INT (R/ANW) +1 
ENDDO 

RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 

c 

c 

SUBROUTINE  INITSOF 
C 

c 

c 
c 

C  SUBROUTINE  TO  SOFTEN  INITIAL  CONDITIONS,  AND  TO  FIND  THE 

C  INITIAL  LIST  OF  NEIGHBORS  AND  INITIAL  DENSITY. 

C  R.  DRIMMEL   4/92 
C 
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/* INCLUDE  NEWHEAD  FORTRAN  A 

C    DECLARATION  OF  LOCAL  VARIABLES. 

Q  

INTEGER  I, J,K,P,FLAG,IOLD,NVAL,INDX(NSTMAX) ,I1,L 
DOUBLE  PRECISION  DR, UH, AA, DL , DX, HINV, H2INV, R, 
&      DY,FPI,NBDR(NSTMAX) ,MASSP 


C 


CALL  MAKETRE 
IF(TNOW.EQ.O.DO)  THEN 


c 

C    ADJUST  H(I) 

C 

IOLD=0 

DO  P=NMP+1,NGP 
FLAG=0 
65         FLAG=FLAG+1 

IF(FLAG.GE.30)  THEN 

WRITE (ULOG, *)  P,P0S(P,1) , POS ( P , 2 ) ,H(P) 

CALL  TERROR ( '  UNABLE  TO  ADJUST  SMOOTHING  ' ) 
END  IF 

CALL  WALKIT{P,H{P) ,NVAL) 
IF(NVAL.LT. (8*NNBMAX) /lO)  THEN 

H(P)=H(P) *1.1D0 

GOTO  65 
END  IF 
IF(NVAL.GT.NSTMAX)  THEN 

WRITE (ULOG, *)  '  NVAL.GT.200  FOR  PART . ' , P 

WRITE (ULOG, *)  '  H=' ,H(P) , 'TIME=' ,TNOW 

H(P)=H(P) *0.5D0 

GOTO  65 
ENDIF 
DO  J=1,NVAL 

NBDR ( J ) =WORKVEC ( J ) 
ENDDO 
IF(NVAL.GT.NNBMAX)  THEN 

CALL  PKSRT ( NVAL , NBDR , INDX ) 

H(P)=(NBDR(INDX(NNBMAX) ) +NBDR( INDX( 8*NNBMAX/10 ) ) ) *0.5D0 

CALL  WALKIT(P,H(P) ,NVAL) 

IF (NVAL. GT.NNBMAX.OR.NVAL.lt. ( 8*NNBMAX/10 ) )  THEN 
CALL  TERROR ( '  ERROR  IN  INITSOF .  ' ) 

ENDIF 
ENDIF 
ENDDO 
ENDIF 
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c 

C    SOFTEN  INITIAL  CONDITIONS 

C 

c 

C  DO  I=NMP+1,NGP 

C  FPI=MASS(I)*C1/ (H(I) *H(I)*RH(I) ) 

C  ACC(I, 1)=VEL(I, 1) *FPI 

C  ACC(I,2)=VEL(I,2) *FPI 

C  DO  L=1,NNBS{I) 

C  J=LIST(L,I) 

C  HINV=2.D0/ (H(I)+H(J) ) 

C  H2INV=HINV*HINV 

C  DX=P0S(I,1)-P0S(J,1) 

C  DY=P0S(I,2) -P0S{J,2) 

C  DR=DSQRT(DX*DX+DY*DY) 

C  UH=DR*HINV 

C  AA=NINTERP*UH 

C  I1=AA 

C  DL=AA-I1 

C  DR=1 . -DL 

C  11=11+1 

C  FPI=(DR*VW3 (II) +DL*VW3 (Il+l) ) *C1*MASS{J) *H2INV/RH(J) 

C  ACC{I,1)=ACC(I,1)+VEL(J,1) *FPI 

C  ACC(I,2)=ACC(I,2)+VEL(J,2) *FPI 

C  ENDDO 

C  ENDDO 

C  DO  K=1,NDIM 

C  DO  I=NMP+1,NGP 

C  VEL(I,K)=ACC(I,K) 

C  ENDDO 

C  ENDDO 

C 

C     WRITE  OUT  NEW  SOFTENED  INITIAL  CONDITIONS 

C 

C  WRITE (2  0, 100)  NBODIES,NDIM,TNOW,NGP,NMP,QTOT 

ClOO  F0RMAT{1X,A,3X,2 { 15 , 3X) , G21 . 14 , 3X, 2 ( 15 , 3X) ) 

C  MASSP=MASS(NMP) 

C  MASS(NMP)=MASS1 

C  DO  10  1=1, NGP 

C  WRITE(20,*)  P0S(I,1) ,P0S(I,2) 

C  WRITE (20,*)  VEL(I, 1) ,VEL(I,2) 

C  WRITE (20,*)  MASS(I),H(I) 

CIO  CONTINUE 

C  MASS(NMP) =MASSP 

C  DO  20  I=NGP+1, NEDDIES 
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C  WRITE (20,*)  P0S(I,1) ,P0S(I,2) 

C  WRITE (20,*)  VEL(I, 1) ,VEL(I,2) 

C  WRITE(20,*)  MASS(I) 

C20  CONTINUE 

C 

C  ENDIF 

RETURN 
END 

©PROCESS  DC(BODYCEL,CONCOM,GAS) 

c 
c 

SUBROUTINE  INITSYS (N)   .^ 
C 

c 

c 

C 

C      SUBROUTINE  TO  INITIALIZE  THE  STATE  OF  THE  SYSTEM. 
C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


INTEGER  N 

C    BEGIN  TIMING. 
C    

CALL  SECONDS (CPUTO) 

C 

C    OPEN  DATA  FILES,  READ  INPUT  PARAMETERS  AND  INITIAL  SYSTEM  STATE, 

C    AND  INITIALIZE  SYSTEM  PARAMETERS. 

C 

CALL  STARTOU 
C  

CALL  INPARAM 

c  

CALL  INBODS 

C  

CALL  INITPAR 

C  

CALL  INITSOF 


f'>;^' 


191 
c  

C    COMPUTE  GRAVITATIONAL  POTENTIAL  AND  ACCELERATION. 
C    

CALL  2ER0ACC 

C  

CALL  ZERO POT 

C  

c 

C    CALCULATE  THE  INITIAL  DENSITY 

C 

IF(NMP.NE.O.OR.TNOW.EQ.O.DO)  THEN 
CALL  INITLIS 
C  

CALL  DENSITY 
C  

ENDIF 

C 

C    CALCULATE  INITIAL  INTERNAL  ENERGIES  (FOR  POLYTROPIC  EQ .  OF  STATE) 
C 

IF(TNOW.EQ.O.DO)  THEN 

DO  I=NMP+1,NGP 

U(I)=ISS*RH(I) **GMONE/GMONE 

ENDDO 
ENDIF 

CALL  ACCRET(O) 
C  

c 

C   REINITIALIZE  ADVLIST  AND  NBSLIST. 
C 

IF(NMP.NE.O)  THEN 
DO  I=1,NB0DLIS 

ADVLIST ( I ) =BODLIST ( I ) 
ENDDO 

NADVLIS=NBODLIS 
NGAS=0 
1  =  0 
DOWHILE (ADVLIST ( I +1) .LE.NGP.AND. (I+l) .LE.NADVLIS) 

1  =  1  +  1 
ENDDO 
NGAS=I 
DO  I=1+NMP,NGP-NAGP 

NBSLIST ( I-NMP) =BODLIST ( I ) 
ENDDO 
NNBSLIS=NGP-NMP-NAGP 
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ENDIF 

CALL  GRAVITY ( ' BOTH ' ) 
C  

CALL  INITLIS 

C  

CALL  DENSITY 

C  

CALL  HYDRO (0) 

C  

CALL  COURANT(N) 

C  

CALL  AMFLUX 

C  

CALL  GRIDEN 

C  

C    OUTPUT  SYSTEM  STATE. 
C    

CALL  OUTSTAT(O) 
C  

c 

C    THE  FIRST  STEP. 

C    

DO  K=1,NDIM 

DO  I=1,NADVLIS 
P=ADVLIST(I) 

VEL(P,K)=VEL(P,K)+0.25D0*ACC(P,K) *DTS/ (2 . DO**TBIN(P) ) 
ENDDO 
ENDDO 
NCMAX=NMAX  '  ' 

CALL  ESTVEL 
C  

CALL  STEPPOS 
C  

c 

C   MAKE  LIST  OF  PARTICLES  TO  BE  ADVANCED  IN  THE  NEXT  HALF  STEP. 
C 

BNOW=NMAX 

CALL  WHENIEQ(NBODIES,TBIN, 1 , ENOW, ADVL 1ST, NADVLIS) 
C  

C  WRITE(22,*)  NMAX,BNOW, NADVLIS, NNBSL IS 

NGAS=0 
1=0 
D0WHILE(ADVLIST(I+1) .LE.NGP.AND. (I+l) .LE. NADVLIS) 

1  =  1  +  1 
ENDDO 
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c 
c 
c 

c 


NGAS=I 

CALL  HALFSTP(N) 
CALL  AI^FLUX 
CALL  ACCRET(N) 
CALL  COURANT(N) 


SUBROUTINE  TO  READ  IN  PARAMETERS. 
INPUT  PARAMETERS: 


RETURN 
END 
©PROCESS  DC ( BODYCEL , CONCOM , GAS ) 

C 

c 

SUBROUTINE  INPARAM 
C 

c 

(2*  ****************************************************  -k  -k  *  *  *  *  -k  **********  * 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c== 


HEADLIN 
NSTEPS 
TD 
NOUTLOG 

CN 

ZETA 

ANW 

TOL 

EPS 

VTYP 

ALFA,BHTA 

NU 

SWITCH 

USEQUAD 

ISS 

GAMMA 


IDENTIFICATION  STRING  FOR  THE  RUN. 

NUMBER  OF  TIMESTEPS . 

OUTPUT  SYSTEM  STATE  ONCE  EVERY  TIME  TD . 

OUTPUT  LOGFILE  DATA  ONCE  EVERY  NSTEPS /NOUTLOG 

STEPS. 

THE  COURANT   NUMBER 

NEIGHBOR  FINDING  PARAMETER 

WIDTH  OF  ANNULI  FOR  VELOCITY  AND  AM  ANALYSIS. 

ERROR  TOLERANCE;  0 . 0  =>  EXACT  (PP)  CALCULATION. 

POTENTIAL  SOFTENING  PARAMETER. 

VISCOCITY  TYPE  :  1=M0NAGHAN,  2=HERNQUIST 

BULK  VISCOSITY  PARAMETERS 

SHEAR  VISCOSITY  PARAMETER 

VISCOSITY  SWITCH 

OPTION  TO  INCLUDE  ( . TRUE . )  QUADRUPOLE  TERMS . 

POLYTROPIC  GAS  CONSTANT  (ISOTHERMAL  SOUND  SPEED) 

INDEX  IN  EQUATION  OF  STATE 


/♦INCLUDE  NEWHEAD  FORTRAN  A 
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C    READ  PARAMETERS,  CLOSE  THE  FILE. 
C    

READ(UPARS, ' (A) ' )  HEADLIN 

READ ( UPARS , * )  NSTEPS 

READ(UPARS, *)  TD 

READ { UPARS , * )  NOUTLOG 

READ ( UPARS, *)  CN 

READ ( UPARS , * )  ZETA , ANW 

READ ( UPARS, *)  EPS , TOL 

READ (UPARS, *)  VTYP, ALFA, BHTA, NU 

READ ( UPARS ,* )  SWITCH 

READ (UPARS , * )  USEQUAD 

READ ( UPARS ,* )  ISS, GAMMA 

CLOSE (UNIT=UPARS) 

RETURN 

END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 
©PROCESS  DIRECTIVE ( '*VDIR: ' ) 

c 
c 

SUBROUTINE  LOADSAP 
C 

c 

Q*  *********  -k  ■»****  tr  ************************************************  1r  *  *  *  *  * 

c 
c 

C  SUBROUTINE  TO  INSERT  THE  BODIES  INTO  THE  SAPLING.  THE  PROCESS 

C  IS  VECTORIZED  OVER  ACTIVE  BODIES  (MAKING,  J.  COMPUT .  PHYS . , 

C  SUBMITTED  [1988])  .   ACTIVE  BODIES  ARE  THOSE  WHICH  ARE  NOT  YET  IN 

C  PLACE  IN  THE  TREE,  AS  LEAVES.   ADDAPTED  FROM  SUBROUTINE  LOADTRE. 

C  R.  DRIMMEL  (APRIL  16,  1994) 

C 

c 

/* INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES, 
C    


DOUBLE  PRECISION  PMl (NSUBCEL , NDIM) 

INTEGER  K, P,NINDEX(NDIM) , J, I , NACTLIS, NCLIST, NCLIST2 , 
&  NSUBSET , INDCELL , NSUBBOD , NBODTEM 
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SAVE  NINDEX,PM1 

DATA  PMl/2*-l. ,2*1.,-1.,+1.,-1.,+1. /,NINDEX/2, 1/ 

C    DEALLOCATE  OLD  TREE,  COMPUTE  COORDINATES  OF  CENTER  OF  ROOT  CELL. 
C    

INCELLS=1 
R00T=NB0DSMA+1 

DO  5  J=1,NSUBCEL 
SUBP(ROOT, J)=0 
5       CONTINUE  .      .  . 

CELLSIZ (ROOT) =RSIZE 

DO  10  K=1,NDIM 

POS (ROOT, K) =RBMIN(K) +0 . 5D0*RSIZE 
10      CONTINUE 

C 

C    PLACE  ALL  BODIES  ON  ACTIVE  BODY  LIST,  HAVING  ROOT  AS  PARENT;  PLACE 

C    ROOT  ON  ACTIVE  CELL  LIST. 

C 

DO  2  0  I=1,NNBSLIS 
PARENT ( I ) =ROOT 
ACTLIST ( I ) =NBSLIST ( I ) 
20      CONTINUE 

NACTLIS=NNBSLIS 
CELLIST (1)=R00T 
NCLIST=1 

C    LOOP  UNTIL  NO  BODIES  ARE  LEFT  ACTIVE. 
C    

200     CONTINUE 

IF(NCLIST.GT.O)  THEN 

C    COMPUTE  SUBINDICES  FOR  ALL  ACTIVE  BODIES. 
C    

DO  30  I=1,NACTLIS 
SUBINDE(I) =1 
3  0         CONTINUE 
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DO  5  0  K=1,NDIM 

DO  40  I=1,NACTLIS 

IF(POS(ACTLIST(I) ,K) . GE . POS { PARENT ( I ) , K) ) 
&  SUBINDE ( I ) =SUBINDE ( I ) +NINDEX ( K ) 

40  CONTINUE 

50         CONTINUE 

C    COMPUTE  NUMBER  OF  BODIES  IN  EACH  SUBCELL . 
C    

C*VDIR:  IGNORE  RECRDEPS 

DO  60  I=1,NACTLIS 

SUBP ( PARENT ( I ) , SUBINDE ( I ) ) =SUBP ( PARENT ( I ) , SUBINDE ( I ) ) +1 
60         CONTINUE 

C 

C    OPEN  ALL  SUBCELLS  WITH  MORE  THAN  ONE  BODY,  PLACING  THEM  ON  ACTIVE 

C    CELL  LIST. 

C 

NCLIST2=0 

DO  110  J=1,NSUBCEL 

DO  7  0  I=1,NCLIST 

ASUBP(I)=SUBP(CELLIST(I) , J) 
70  CONTINUE 

CALL  WHENIGT(NCLIST,ASUBP, 1,1, I SUBSET, NSUBSET) 

INCELLS=INCELLS+NSUBSET 
IFdNCELLS.GT.NCELLS)  THEN 

WRITE ( ULOG , * )  '  INCELLS , NSUBSET , NACTLIS= ' , INCELLS , 
&  NSUBSET, NACTLIS , NNBSLIS , NADVLIS , BNOW, NMAX 

DO  1=1, NACTLIS 

WRITE{ULOG, *)  ACTLIST(I) , TBIN (ACTLIST ( I ) ) 
ENDDO 
CALL  TERROR ( '  OVERFLOW  IN  LOADSAP ' ) 

C  

ENDIF 
INDCELL=INCELLS-NSUBSET+NBODSMA 

DO  9  0  K=1,NSUBCEL 

DO  80  1=1, NSUBSET 

SUBP ( INDCELL+I , K) =0 
80  CONTINUE 

90  CONTINUE 

C*VDIR:  IGNORE  RECRDEPS 

DO  100  1=1, NSUBSET 
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P=INDCELL+I 

ASUBP ( I ) =CELLIST ( ISUBSET { I ) ) 
SUBP(ASUBP(I) , J)=P 

CELLSIZ(P)=CELLSIZ(ASUBP(I) ) *0.5 
TEMPLIS(NCLIST2+I)=P 

POS { P , 1 ) =POS (ASUBP ( I ) , 1 ) +PM1 { J , 1 ) *0 . 5D0*CELLSIZ ( P) 
POS ( P , 2 ) =POS (ASUBP ( I )  , 2 ) +PM1 ( J, 2 ) *0 . 5D0  *CELLSIZ ( P) 
C  P0S(P,3)=P0S(ASUBP(I) ,3)+PMl(J,3) *0 . 5D0*CELLSIZ ( P) 

10  0  CONTINUE 

NCLIST2=NCLIST2+NSUBSET 

110        CONTINUE 

NCLIST=NCLIST2 

DO  12  0  I=1,NCLIST 

CELLIST ( I ) =TEMPLIS ( I ) 
120        CONTINUE 

C    FIND  ALL  SUBCELLS  WITH  ONE  BODY;  ADD  BODIES  TO  TREE. 
C    

DO  13  0  I=1,NACTLIS 

TEMPLIS ( I ) =NCELLS* ( SUBINDE ( I ) - 1 ) + ( PARENT ( I ) -NBODSMA) 
ASUBP(I)=SUBPVEC(TEMPLIS(I) ) 
13  0        CONTINUE 

CALL  WHENEQ (NACTLIS, ASUBP, 1, 1 , ISUBSET, NSUBBOD) 

DO  140  1=1, NSUBBOD 

SUBPVEC (TEMPLIS ( ISUBSET ( I ) ) ) =ACTLIST ( ISUBSET ( I ) ) 
140        CONTINUE 

C    PLACE  BODIES  IN  CELLS  WITH  MORE  THAN  ONE  BODY  ON  ACTIVE  LIST. 
C    

CALL  WHENIGT (NACTLIS, ASUBP, 1,1, I SUBSET, NBODTEM) 

NACTL I S  =NBODTEM 

DO  150  1=1, NACTLIS 

PARENT ( I) =ASUBP( ISUBSET (I) ) 
TEMPLIS ( I ) =ACTLIST ( ISUBSET { I ) ) 
150        CONTINUE 

DO  160  1=1, NACTLIS 

ACTLIST ( I ) =TEMPLIS ( I ) 
160        CONTINUE 


^^*^^^t****************************************************************** 
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GO  TO  200 
END  IF 

RETURN 

ENDSPROCESS  DC (BODYCEL , CONCOM, GAS) 
SPROCESS  DIRECTIVE! ' *VDIR: ' ) 
C 
C 

c 

SUBROUTINE  LOADTRE 
C 

c 

c 
c 

C  SUBROUTINE  TO  INSERT  THE  BODIES  INTO  THE  TREE.   THE  PROCESS  IS 

C  VECTORIZED  OVER  ACTIVE  BODIES  (MAKING,  J.  COMPUT .  PHYS . , 

C  SUBMITTED  [1988]) .   ACTIVE  BODIES  ARE  THOSE  WHICH  ARE  NOT  YET  IN 

C  PLACE  IN  THE  TREE,  AS  LEAVES.   THE  LOCAL  VARIABLES  PMl  AND  NINDEX 

C  ARE  USED  TO  CONVERT  BACK  AND  FORTH  BETWEEN  PHYSICAL  COORDINATES 

C  AND  SUBCELL  COORDINATES. 

C 

c 

0======================================================================= 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

DOUBLE  PRECISION  PMKNSUBCEL,  NDIM) 

INTEGER  K, P, NINDEX (NDIM) , J, I , NACTLIS , NCLIST, NCLIST2 , 
&  NSUBSET , INDCELL , NSUBBOD , NBODTEM 

SAVE  NINDEX, PMl 

DATA  PMl/2*-l. ,2*1. , -1 . , +1 . , -1 . , +1 . / , NINDEX/2 , 1/ 

C==================================================================:===== 

C    DEALLOCATE  OLD  TREE,  COMPUTE  COORDINATES  OF  CENTER  OF  ROOT  CELL. 
C    

INCELLS=1 
R00T=NB0DSMA+1 

DO  5  J=1,NSUBCEL 
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SUBP(ROOT, J)=0 
5       CONTINUE 

CELLSIZ (ROOT) =RSIZE 

DO  10  K=1,NDIM 

POS (ROOT, K) =RBMIN (K) +0 . 5D0*RSIZE 
10      CONTINUE 

C 

C    PLACE  ALL  BODIES  ON  ACTIVE  BODY  LIST,  HAVING  ROOT  AS  PARENT;  PLACE 

C    ROOT  ON  ACTIVE  CELL  LIST. 

C 

DO  20  I=1,NB0DLIS-NMP 
PARENT ( I) =ROOT 
ACTLIST(I)=BODLIST(I+NMP) 
2  0      CONTINUE 

NACTLIS=NBODLIS-NMP 

CELLIST(1)=R00T 

NCLIST=1 

C    LOOP  UNTIL  NO  BODIES  ARE  LEFT  ACTIVE. 
C    

2  00     CONTINUE 

IF(NCLIST.GT.O)  THEN 

C    COMPUTE  SUBINDICES  FOR  ALL  ACTIVE  BODIES. 
C    

DO  3  0  I=1,NACTLIS 
SUBINDE(I)=1 

3  0         CONTINUE 

DO  50  K=1,NDIM 

DO  40  I=1,NACTLIS 

IF(POS(ACTLIST(I) , K) . GE . POS ( PARENT ( I ) , K) ) 
&  SUBINDE ( I ) =SUBINDE ( I ) +NINDEX (K) 

4  0  CONTINUE 
50         CONTINUE 

C    COMPUTE  NUMBER  OF  BODIES  IN  EACH  SUBCELL . 
C    

C*VDIR:  IGNORE  RECRDEPS 

DO  60  I=1,NACTLIS 

SUBP ( PARENT ( I ) , SUBINDE ( I ) ) =SUBP ( PARENT ( I ) , SUBINDE ( I ) ) +1 
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60         CONTINUE 

C 

C    OPEN  ALL  SUBCELLS  WITH  MORE  THAN  ONE  BODY,  PLACING  THEM  ON  ACTIVE 

C    CELL  LIST. 

C 

NCLIST2=0 

DO  110  J=1,NSUBCEL 

DO  70  I=1,NCLIST 

ASUBP(I)=SUBP(CELLIST(I) , J) 
70  CONTINUE 

CALL  WHENIGT(NCLIST,ASUBP, 1, 1 , ISUBSET, NSUBSET) 

INCELLS=INCELLS+NSUBSET 
IF(INCELLS.GT.NCELLS)  THEN 

WRITE (ULOG, *)  '  INCELLS, NSUBSET ' ,INCELLS, NSUBSET 

CALL  TERROR { '  OVERFLOW  IN  LOADTRE ' ) 


ENDIF 

INDCELL= INCELLS -NSUBSET+NBODSMA 

DO  9  0  K=1,NSUBCEL 

DO  80  1=1, NSUBSET 

SUBP ( INDCELL+I , K) =0 
80  CONTINUE 

9  0  CONTINUE 

C*VDIR:  IGNORE  RECRDEPS 

DO  100  1=1, NSUBSET 

P=INDCELL+I 

ASUBP ( I ) =CELLIST { ISUBSET ( I ) ) 

SUBP{ASUBP(I) , J)=P 

CELLSIZ(P)=CELLSIZ(ASUBP(I) ) *0.5 

TEMPLIS{NCLIST2+I)=P 

POS { P, 1 ) =POS (ASUBP ( I ) , 1 ) +PM1 { J, 1 ) *0 . 5D0*CELLSIZ ( P) 

POS ( P, 2 ) =POS (ASUBP ( I ) , 2 ) +PM1 ( J, 2 ) *0 . 5D0*CELLSIZ ( P) 
C  P0S(P,3)=P0S(ASUBP(I) ,3)+PMl(J,3) *0 . 5D0*CELLSIZ ( P) 

100  CONTINUE 

NCLIST2=NCLIST2+NSUBSET 

110        CONTINUE 

NCLIST=NCLIST2 


201 

DO  120  I=1,NCLIST 

CELLIST ( I ) =TEMPLIS ( I ) 
12  0        CONTINUE  ,  , 

C    FIND  ALL  SUBCELLS  WITH  ONE  BODY;  ADD  BODIES  TO  TREE. 
C    

DO  13  0  I=1,NACTLIS 

TEMPLIS ( I ) =NCELLS* ( SUBINDE ( I ) - 1 ) + ( PARENT ( I ) -NBODSMA) 
ASUBP{I)=SUBPVEC(TEMPLIS(I) ) 
130        CONTINUE 

CALL  WHENEQ(NACTLIS, ASUBP, 1,1, I SUBSET, NSUBBOD) 

DO  140  1=1, NSUBBOD 

SUBPVEC (TEMPLIS (ISUBSET (I) ) ) =ACTLIST (ISUBSET( I) ) 
140        CONTINUE 

C    PLACE  BODIES  IN  CELLS  WITH  MORE  THAN  ONE  BODY  ON  ACTIVE  LIST. 
C    

CALL  WHENIGT(NACTLIS, ASUBP, 1,1, ISUBSET, NBODTEM) 

NACTLIS=NBODTEM 

DO  150  I=1,NACTLIS 

PARENT ( I ) =ASUBP { ISUBSET ( I )  ) 
TEMPLIS ( I ) =ACTLIST ( ISUBSET ( I ) ) 
150        CONTINUE 

DO  160  I=1,NACTLIS 

ACTLIST ( I ) =TEMPLIS ( I ) 
160        CONTINUE 

GO  TO  200 

ENDIF 

RETURN 

END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 
©PROCESS  DIRECTIVE  {  "VDIR:  '  ) 
C 

C 

c 

SUBROUTINE  MAKELIS 
C 

c 

c 
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c 
c 

C      SUBROUTINE  TO  BUILD  LIST  OF  NEIGHBORS  FOR  ALL  PARTICLES. 
C 

c 

/* INCLUDE  NEWHEAD  FORTRAN  A 


INTEGER  NVAL,I, J,K,L,P,M,NUM,FLAG, INDX(IOOO) , NUMAX, PMAX, NBS , 
&       TLIST(2*NNBMAX,NGPMAX) , C0UNT2 , COUNTl , CLIST ( 20*NNBMAX) , 
&       NADJ,NFIX,NBSMIN, FLAG2 

DOUBLE  PRECISION  DR, HIJ, HP, HOLD, RAD { 1000 ), R, UH, AVADJ 


C 
C 

C     FIND  NEAREST  NEIGHBORS  OF  ACTIVE  PARTICLES 
C 

DO  I=NMP+1,NGP-NAGP 
P=BODLIST(I) 
INDL(P)=0 
NNB(P)=0 
ENDDO 
DO  I=1,NACC 

P=ACCLIST{I) 
INDL(P)=0 
NNB(P)=0 
ENDDO 
DO  I=1,20*NNBMAX 

CLIST(I)=0 
ENDDO 
NUMAX=0 
COUNT1=0 
COUNT2=0 
NFIX=0 
AVADJ=0.D0 
DO  I=1,NNBSLIS 
P=NBSLIST(I) 
NBSMIN=10 
FLAG=0 
FLAG2=0 

CALL  WALKIT(P, {H(P) /SOF) ,NVAL) 
15      NUM=0 
NBS=0 

DO  J=1,NVAL 
K=TEMPLIS(J) 
HIJ=(H{K) +H{P) ) *0.5D0 
IF(WORKVEC(J) .LE.HIJ/SOF)  THEN 
NUM=NUM+1 
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INDX{NUM)=J 

IF (WORKVEC (J) . LE . HIJ)  THEN 

NBS=NBS+1 
ENDIF 
END  IF 
ENDDO 

IF(TBIN(P) .EQ.BNOW)  THEN 

IF (NHS . GT . 3  *NNBMAX/2 . AND . FLAG2 . NE . 1 )  THEN 
FLAG2=1 

COUNT2=COUNT2+l 
CL I ST ( C0UNT2 + 1 8  * NNBMAX ) = P 
H(P)=0.8D0*H(P) 
GOTO  15 
ENDIF 

IF(NUM.GT.NUMAX)  THEN 
PMAX=P 
NUMAX=NUM 
HP=H(P) 
L=NVAL 
ENDIF 

IF ( NUM . GT . 5  *NNBMAX/ 2 . OR . NBS . LT . NBSMIN)  THEN 
IF(FLAG.EQ.O)  THEN 
FLAG=1 
HOLD=H{P) 

CALL  HPFIX(P,NVAL,NUM,NBS,NADJ) 
AVAD J = AVAD J + NAD J 
NFIX=NFIX+1 
IF(H(P) .GT.HOLD)  THEN 
C0UNT1=C0UNT1+1 
CLIST(C0UNT1)=P 
ELSE 

C0UNT2=C0UNT2+1 
CLIST (18*NNBMAX+C0UNT2 ) =P 
ENDIF 

IF ( NBS. LT. NBSMIN)  NBSMIN=NBS 
GOTO  15 
ELSE 

WRITE (ULOG, *)  '    NUM=',NUM,'    NVAL= ' , NVAL , '    NBS= ' , NBS 
CALL  TERROR ('  ERROR  IN  MAKELIS .  ') 
ENDIF 
ENDIF 

NNB ( P ) =NUM 
DO  J=1,NUM 

SLIST(J,P)=TEMPLIS(INDX(J) ) 
ENDDO 
ELSEIF (NUM. GT. 1000)  THEN 

WRITE (ULOG, 400)  P, NUM, TBIN (P) , BNOW, POS (P, 1) ,P0S(P,2) ,H(P) 
400        F0RMAT(1X,4(I5,1X) ,3 (1PE12.5,2X) ) 
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CALL  TERROR {'  OVERFLOW  IN  INDX  IN  MAKELIS.  ') 
END  IF 
DO  J=1,NUM 

RAD ( J ) =WORKVEC ( INDX ( J ) ) 
ENDDO 
DO  J=1,NUM 

K=TEMPLIS(INDX(J) ) 
IF(RAD(J) .GT. (H(K) /SOF) )  THEN 
INDL{K)=INDL(K) +1 
TLIST(INDL(K) , K) =P 
ENDIF 
ENDDO 
ENDDO 
C 

C     FIND  NEAREST  NEIGHBORS  TO  ACCRETED  PARTICLES 
C 
c 

IF(BN0W.GE.TBIN{NMP)-2)  THEN 
DO  I=1,NACC 
P=ACCLIST(I) 
FLAG=0 
NBSMIN=10 

CALL  WALKIT(P, (H(P) /SOF) ,NVAL) 
25      NUM=0 
NBS=0 
DO  J=1,NVAL 

HIJ={H(P) +H(TEMPLIS(J) ) ) *0 . 5D0 
IF(WORKVEC(J) .LT.HIJ/SOF)  THEN 
NUM=NUM+1 
INDX(NUM)=J 
IF(WORKVEC(J) .LT.HIJ)  THEN 

NBS=NBS+1 
ENDIF 
ENDIF 
ENDDO 

IF(NUM.GT.NUMAX)  THEN 
PMAX=P 
NUMAX=NUM 
HP=H(P) 
L=NVAL 
ENDIF 

IF(NUM.GT.5*NNBMAX/2)  THEN 
IF{FLAG.EQ.O)  THEN 
FLAG=1 
HOLD=H(P) 

CALL  HPFIX(P,NVAL,NUM,NBS,NADJ) 
AVADJ=AVADJ+NADJ 
NFIX=NFIX+1 
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IF ( H ( P ) . GT . HOLD )  THEN 
C0UNT1=C0UNT1+1 
CLIST(C0UNT1)=P 
ELSE 

COUNT2=COUNT2+l 
CLIST ( 18 *NNBMAX+C0UNT2 ) =P 
ENDIF 

IF(NBS.LT.NBSMIN)  NBSMIN=NBS 
GOTO  2  5 
ELSE 

WRITE{ULOG, *)  '    NUM=',NUM, '    NVAL= ' , NVAL, '    NBS= ' , NBS 
CALL  TERROR ('  ERROR  IN  MAKELIS  ') 
ENDIF  ,   ;    - 

ENDIF 
DO  J=1,NUM 

K=TEMPLIS(INDX(J) ) 

IF(WORKVEC(INDX(J) ) .GT. (H(K) /SOF) )  THEN 
INDL(K)=INDL{K)+1 
TLIST(INDL{K) , K) =P 
ENDIF 
ENDDO 
DO  J=1,NUM 

K=TEMPLIS(INDX(J) ) 
SLIST(J,P)=K 
ENDDO 

NNB(P)=NUM 
ENDDO 
ENDIF 

IF(NUMAX.GE.5*NNBMAX)  THEN 
WRITE(ULOG, *)  '   BADH:' 

WRITE ( ULOG ,* )  PMAX,L,NUMAX,NNB(PMAX) ,TNOW 
WRITE (ULOG, 100)  P0S(PMAX,1) ,P0S{PMAX,2) , HP, RHS (PMAX) 
100      F0RMAT(5X,4(1PE12.5,2X) ) 
ENDIF 

IF (NFIX . NE . 0 )  AVADJ=AVADJ/NFIX 

WRITE(22,200)  NMAX, BNOW, TBIN (NMP) , NADVLIS , NNBSLIS, COUNTl , C0UNT2 
200   FORMAT(2X,7(I5,2X) ) 
C 

C   CHECK  FOR  OVERFLOW. 
C 

NUM=0 

DO  1=1, NNBSLIS 
P=NBSLIST(I) 

IF(INDL{P) .GT.2*NNBMAX)  THEN 
NUM=NUM+1 
INDX(NUM) =P 
ENDIF 
ENDDO 
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DO  1=1, NUM 
P=INDX{I) 

WRITE ( ULOG , * )  P , INDL ( P ) , POS ( P , 1 ) , POS ( P , 2 ) 
ENDDO 

IF(NUM.NE.O)  CALL  TERROR ( '  OVERFLOW  IN  TLIST  ') 
NUM=0 

DO  I=1,NACC 
P=ACCLIST(I) 

IF ( INDL (P) .GT.2*NNBMAX)  THEN 
NUM=NUM+1 
INDX(NUM)=P 
ENDIF 
ENDDO 

DO  1=1, NUM 
P=INDX(I) 

WRITE { ULOG , * )  P , INDL ( P ) , POS ( P , 1 ) , POS { P , 2 ) 
ENDDO 

IF(NUM.NE.O)  CALL  TERROR ( '  OVERFLOW  IN  TLIST.') 
IF{COUNTl.GT.18*NNBMAX.OR.COUNT2 . GT . 2 *NNBMAX)  THEN 
DO  I=1,2  0*NNBMAX 
P=CLIST(I) 

WRITE ( ULOG , * )  P , POS ( P , 1 ) , POS ( P , 2 ) 
ENDDO 

WRITE ( ULOG , * )  COUNTl , C0UNT2 
CALL  TEPJIORC  OVERFLOW  IN  CLIST.  ') 
ENDIF 
NUM=0 

DO  I=1,NNBSLIS 
P=NBSLIST(I) 

IF(NNB(P)+INDL(P) .GT.7*NNBMAX/2)  THEN 
NUM=NUM+1 
INDX{NUM)=P 
ENDIF 
ENDDO 

IF{NUM.NE.O)  THEN 
DO  1=1, NUM 
P=INDX(I) 

WRITE (ULOG, 3  00)  P,NNB(P) , INDL(P) ,TBIN(P) , BNOW 
ENDDO 
300      F0RMAT(1X,I5,2X,5(I3,2X) ) 

CALL  TERROR ('  OVERFLOW  IN  SLIST.  ') 
ENDIF 
NUM=0 
DO  I=1,NACC 

P=ACCLIST(I) 

IF(NNB(P) +INDL(P) . GT . 7*NNBMAX/2 )  THEN 
NUM=NUM+1 
INDX(NUM)=P 
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ENDIF 
ENDDO 

IF(NUM.NE.O)  THEN 
DO  1=1, NUM 
P=INDX(I) 

WRITE (ULOG, 3  00)  P,NNB(P) , INDL(P) ,TBIN(P) , BNOW 
ENDDO 

CALL  TERROR ('  OVERFLOW  IN  SLIST   ') 
ENDIF 
CC     GOTO  3  5 
C 

C    TAKE  EXTRA  PARTICLES  OUT  OF  TLISTS  OF  PARTICLES  WHOSE  H  INCREASED. 
C 

DO  I=1,C0UNT1 
P=CLIST(I) 
NUM=0 
DO  J=1,INDL(P) 

DO  5  0  K=1,NNB{P) 

IF(TLIST{J,P) .EQ.SLIST{K,P) )  THEN 
NUM=NUM+1 
INDX(NUM)=J 
ENDIF 
50  CONTINUE 

ENDDO 

IF(NUM.GT.O)  THEN 
L=l 

M=INDX(1)-1 
DO  J=INDX(1) ,INDX(NUM) 

IF(J.EQ.INDX(L+1) )  THEN 

L=L+1 
ELSE 

M=M+1 

TLIST(M, P) =TLIST { J, P) 
ENDIF 
ENDDO 

DO  J=INDX(NUM)+1, INDL(P) 
M=M+1 

TLIST(M, P) =TLIST(J, P) 
ENDDO 
INDL(P)=M 
ENDIF 
C         CLIST(I)=NUM 
C 

C    PUT  PARTICLE  INTO  LIST  OF  NEIGHBOR  IF  NOT  ALREADY  THERE. 
C 

DO  J=1,NNB(P) 
K=SLIST(J,P) 
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IF{TBIN(K) .EQ.BNOW.OR.TBIN(K) . LT . 0 )  THEN 
R=DSQRT( (P0S(P,1) -P0S(K,1) ) * *2+ ( POS ( P, 2 ) -POS (K, 2 ) ) **2) 
IF(R.LT.H(K) /SOF)  THEN 
DO  M=1,NNB(K) 

IF(SLIST(M,K) .EQ.P)  GOTO  70 
ENDDO 

NNB(K)=NNB(K)+1 
SLIST(NNB(K) , K) =P 
70  CONTINUE 

ENDIF 
END  IF 
ENDDO 
ENDDO 
C 

C    REMOVE  PARTICLES  IN  TLIST  THAT  NO  LONGER  FIT  CRITERION. 
C 

DO  I=1,C0UNT2 

P=CLIST ( 18  *NNBMAX+I ) 
HP=H(P) 
NUM=0 

DO  J=1,INDL{P) 
K=TLIST(J,P) 

R=DSQRT{ (POS(P, 1)-P0S(K,1) ) **2+ ( POS (P, 2) -POS (K, 2 ) ) **2) 
HIJ=(HP+H{K) ) *0.5D0 
IF(R.GT.HIJ/SOF)  THEN 
NUM=NUM+1 
INDX(NUM)=J 
ENDIF 
ENDDO 

IF(NUM.GT.O)  THEN 
L=l 

M=INDX(1) -1 
DO  J=INDX(1) ,INDX{NUM) 

IF(J.EQ.INDX(L+1) )  THEN 

L=L+1 
ELSE 

M=M+1 

TLIST(M, P) =TLIST(J, P) 
ENDIF 
ENDDO 

DO  J=INDX(NUM)+1,INDL{P) 
M=M+1 

TLIST (M, P) =TLIST ( J, P) 
ENDDO 
INDL(P) =M 
ENDIF 
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C    CHECK  CONSISTENCY  OF  LISTS  OF  SURROUNDING  PARTICLES. 

C 

NUM=0 

DO  J=1,NGA3 

K=ADVLIST(J) 

R=DSQRT( (P0S(P,1) -P0S(K,1) ) * *2+ ( POS ( P, 2 ) -P0S(K,2) ) **2) 
IF(R.LT.H(K) /SOF.AND.R.GT.HP/SOF)  THEN 
NUM=NUM+1 
WORKVEC(NUM)=R 
TEMPLIS(NUM)=K 
END  IF 
ENDDO 

IF{BNOW.GE.TBIN(NMP) -2)  THEN 
DO  J=1,NACC 

K=ACCLIST(J) 

R=DSQRT{ (P0S{P,1) -P0S(K,1) ) **2+ ( POS (P, 2 ) -POS (K, 2 ) ) **2) 
IF(R.LT.H(K) /SOF.AND.R.GT.HP/SOF)  THEN 
NUM=NUM+1 
WORKVEC(NUM)=R 
TEMPLIS (NUM) =K 
END  IF 
ENDDO 
ENDIF 
DO  J=1,NUM 

R=WORKVEC(J) 
K=TEMPLIS(J) 
HIJ=(HP+H(K) ) *0.5D0/SOF 
IF(R.GT.HIJ)  THEN 
C*VDIR:  PREFER  SCALAR 

DO  L=1,NNB(K) 

IF(SLIST(L,K) .EQ.P)  THEN 
DO  M=L,NNB(K) -1 

SLIST (M, K) =SLIST (M+1 , K) 
ENDDO 

NNB(K)=NNB(K)-1 
GOTO  60 
ENDIF 
ENDDO 
6  0  CONTINUE 

ELSE 

DO  L=1,INDL(P) 

IF(K.EQ.TLIST(L, P) )  GOTO  4  0 
ENDDO 

TLIST(INDL{P)+1,P)=K 
INDL{P)=INDL(P)+1 
40  CONTINUE 

ENDIF 
ENDDO 
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ENDDO 

CC3  5   CONTINUE 

C 

C    PUT  PARTICLES  IN  TLIST  INTO  SLIST. 

C 


DO  I=1,NGAS 
P=ADVLIST(I) 

IF(NNB(P)+INDL(P) .GT.7*NNBMAX/2)  THEN 
WRITE(ULOG, *)  P,NNB(P) , INDL(P) 
CALL  TERROR ('  OVERFLOW  IN  MAKELIS.  ') 
ENDIF 
ENDDO 
DO  I=1,NGAS 

P=ADVLIST(I) 
NUM=NNB{P) 
DO  J=l, INDL{P) 
NLrM=NUM+l 

SLIST (NUM, P) =TLIST( J, P) 
ENDDO 

NNB(P)=NUM 
ENDDO 

C 

C    BUILD  LIST  FROM  SLIST. 

C 

DO  I=1,NGAS 

P=ADVLIST(I) 

NUM=0 

HP=H(P) 

DO  J=1,NNB{P) 

K=SLIST(J,P) 

DR=DSQRT( (P0S(P,1)-P0S(K,1) ) **2+ ( POS (P, 2 ) -POS (K, 2 ) ) **2) 

HIJ=(HP+H{K) )*0.5D0 

IF(DR.LT.HIJ)  THEN 
NUM=NUM+1 
INDX(NUM)=J 

ENDIF 
ENDDO 
IF(Ntm.GT.2*NNBMAX)  THEN 

WRITE (ULOG, *)  P,NUM,P0S(P,1) ,P0S(P,2) 

CALL  TERROR ('  OVERFLOW  IN  LIST.  ') 
ENDIF 
DO  J=1,NUM 

LIST(J, P) =SLIST(INDX(J)  ,  P) 
ENDDO 
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NNBS(P)=NUM 
ENDDO  ■     '■    ., 

IF(BN0W.GE.TBIN(NMP)-2)  THEN 
DO  I=1,NACC 
P=ACCLIST(I) 

IF(NNB(P) +INDL(P) .GT . 7*NNBMAX/2 ) 
Sc  CALL  TERROR  ('  OVERFLOW  IN  MAKELIS   ') 

ENDDO 
DO  I=1,NACC 

P=ACCLIST(I)  '       '■ 

NUM=NNB ( P ) 
DO  J=1,INDL(P) 
NUM=NUM+1 

SLIST (NUM, P) =TLIST ( J, P) 
ENDDO 

NNB{P)=NUM 
ENDDO 
DO  I=1,NACC 

P=ACCLIST(I) 
NUM=0 
HP=H{P) 
DO  J=1,NNB(P) 
K=SLIST{J,P) 
HIJ=(HP+H(K) ) *0.5D0 

DR=DSQRT{ (P0S{P,1) -P0S(K,1) ) * *2+ { POS (P, 2 ) -P0S(K,2) ) **2) 
IF(DR.LT.HIJ)  THEN 
NUM=NUM+1 
INDX(NUM)=J 
END  IF 
ENDDO 
IF(NUM.GT.2*NNBMAX)  THEN 

WRITE (ULOG, *)  P,NUM,P0S(P,1) ,P0S(P,2) 
CALL  TERROR ( '  OVERFLOW  IN  LIST  ' ) 
ENDIF 
DO  J=1,NUM 

LIST(J,P)=SLIST(INDX(J) ,P) 
ENDDO 

NNBS(P)=NUM 
ENDDO 
ENDIF 

RETURN 
END 
(i PROCESS  DC(BODYCEL,CONCOM,GAS) 

Q*********************************************************************** 

c 
c 

SUBROUTINE  MAKETRE 
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1 


c 
c 

c 
c 

C      MAIN  ROUTINE  TO  CONTROL  INITIALIZATION  OF  THE  TREE  STRUCTURE 

C      FOR  COMPUTING  THE  GRAVITATIONAL  INTERACTION. 

C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    SET  BOX  PROPERTIES. 
C    

CALL  SETBOX 
C  

C    LOAD  BODIES  INTO  THE  TREE. 
C    

CALL  LOADTRE 
C  

C    COMPUTE  PROPERTIES  OF  CELLS. 
C    

CALL  HACKCEL 
C  

RETURN 

END@ PROCESS  DC ( BODYCEL , CONCOM , GAS ) 

C 

c 

SUBROUTINE  MAKESAP 
C 

c 

c 
c 

C  MAIN  ROUTINE  TO  CONTROL  INITIALIZATION  OF  THE  SAPLING 
C  FOR  FINDING  NEAREST  NEIGHBORS  IN  THE  SPH  CALCULATION. 
C 

c 
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/* INCLUDE  NEWHEAD  FORTRAN  A 

C    SET  BOX  PROPERTIES  FOR  SAPLING. 
C    

CALL  SAPBOX 
C  

IF(REBOX)  THEN 
C    LOAD  BODIES  INTO  THE  SAPLING. 
C    

CALL  LOADSAP 

C  

C    COMPUTE  PROPERTIES  OF  CELLS. 
C    

CALL  HACKCEL 
C  

REBOX=. FALSE. 
ENDIF 

RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 

Q*********************************************************************** 

c 
c 

SUBROUTINE  OUTASCI 
C 

c 

c 
c 

C      SUBROUTINE  TO  OUTPUT  THE  BODY  DATA  TO  AN  ASCII  DATA  FILE. 

C 

C 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

INTEGER  NDIMO , I , P , NBOD , NUM 
0======================================================================= 
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C         OUTPUT    SYSTEM    STATE. 
C         

NDIMO=NDIM 

NBOD=NBODIES-NAGP+NACC 

NUM=NGP-NAGP+NACC 

WRITE ( UBODSAS ,100)    NBOD , NDIMO , TNOW , NUM , NMP , QTOT 
100  FORMAT (IX, 2 ( 15 , IX) , G21 . 14 , 2X, 2 (15 , IX) , G21 . 14 ) 

200  F0RMAT(1X,2 {1PE21.14,2X) ) 

300  F0RMAT(1X,3 (1PE21.14,2X) ) 

400  FORMAT ( IX, 1PE21. 14) 

IF(NMP.EQ.l)     THEN 
WRITE (UBODSAS, 2  00)     P0S(1,1) ,P0S(1,2) 
WRITE ( UBODSAS ,200)    VEL (1,1), VEL (1,2) 
WRITE (UBODSAS, 3  00)     MASS(l) ,U(1) ,H(1) 
ENDIF 

DO    10    I=1,NACC 
P=ACCLIST(I) 

WRITE ( UBODSAS  ,200)     POS ( P , 1 )  , POS ( P , 2 ) 
WRITE (UBODSAS, 2  00)     VEL(P,1) ,VEL(P,2) 
WRITE (UBODSAS, 3  00)    MASS(P) ,U(P) ,H(P) 
10  CONTINUE 

C 

C      NOTE:    THIS    ASSUMES    THAT   NAGP    HAS    ONLY   GAS    PARTICLES. 
DO    I=1+NMP,NGP-NAGP 
P=BODLIST(I) 

WRITE { UBODSAS ,200)    P0S{P,1),P0S(P,2) 
WRITE (UBODSAS, 2  00)    VEL(P, 1) ,VEL(P,2) 
WRITE (UBODSAS, 3  00)     MASS(P) ,U(P) ,H(P) 
ENDDO 

DO    20    I=NGP-NAGP+1,NB0DLIS 
P=BODLIST(I) 

WRITE (UBODSAS, 200)     P0S(P,1) ,P0S(P,2) 
WRITE ( UBODSAS ,200)    VEL ( P , 1 ) , VEL ( P , 2 ) 
WRITE (UBODSAS, 2  00)     MASS(P),H(P) 
20  CONTINUE 

RETURN 
END 
©PROCESS    DC(BODYCEL,C0NC0M,GAS) 

Q*************  ************  *************-k*  i,i,i,1,1,i,1,-l,i,i,i,i,-l,*1,ir  Iririciciii,  t  i,i,i,  i,i,i,i,i, 

c 
c 

SUBROUTINE    OUTBODS 
C 

c 


_:-i 
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Q******************1,*^,1,**1r***************^,**1,^r*■^,^,^,^,■|,^,■|,^,■l,i,^,^,^,^,^,1,^,^,^,i,^,^,^,^,^, 

c 
c 

C      SUBROUTINE  TO  OUTPUT  THE  BODY  DATA  TO  BINARY  OUTPUT  FILE. 
C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

C 

C    DECLARATION  OF  LOCAL  VARIABLES. 

C    


INTEGER  P,NDIMO,K 

C 

C    OUTPUT  SYSTEM  STATE. 

C    

NDIMO=NDIM 

WRITE (UBODSOU)  NBODIES, NDIMO, TNOW, NGP, NMP, QTOT 

C   THIS  HAS  TO  BE  CHANGED  SO  THAT  P=BODLIST(I) 

WRITE (UBODSOU)  (MASS(P) , P=l , NBODIES) , { (POS(P,K) ,P=1, 

&  NBODIES) ,K=1,NDIM) , ( (VEL(P,K) , P=l , NBODIES) , 

&  K=1,NDIM) 
DO  10  P=1,NGP 

WRITE (UBODSOU)  U(P),H(P) 
10     CONTINUE 

RETURN 
END 
@ PROCESS  DC(BODYCEL,CONCOM,GAS) 

c 
c 

SUBROUTINE  OUTCPU 
C 
C 

Q*  *************  ******************************************  -k  *  *  *  1,  *  *  ******  *  * 

c 
c 

C      SUBROUTINE  TO  OUTPUT  CPU  TIMING  DATA  TO  THE  LOG  FILE. 
C 

c 
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/* INCLUDE  NEWHEAD  FORTRAN  A 

C    OUTPUT  TIMING  DATA  TO  THE  LOG  FILE. 
C    

CPUTIME=CPUT1-CPUT0 
WRITE ( ULOG , 1 0 )  CPUTIME 

10      FORMAT (//, lOX, '  TOTAL  CPU  TIME  USED  (SECONDS)  :  ',1PE12.4) 

RETURN 
END 
@ PROCESS  DC(BODYCEL,CONCOM,GAS) 

C 

c 

SUBROUTINE  OUTENRG 
C 

c 

C 

c 

C      SUBROUTINE  TO  OUTPUT  DIAGNOSTIC  DATA  TO  THE  LOG  FILE. 
C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

DOUBLE  PRECISION  CPUNEW, CPUOLD, CPUSTEP, AMT, TOTM 
INTEGER  K 

SAVE  CPUOLD 

DATA  CPUOLD/ 0.0/ 

0======================================================================= 

C 

C    WRITE  MASS,  ENERGY,  ANGULAR  MOMENTUM,  CENTER  OF  MASS  QUANTITIES. 
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WRITE (ULOG, 15)  MTOT,TAM 

WRITE (ULOG, 10)  TAE,TAAM(3) , TAEK, NAGP-NCP 

WRITE ( ULOG ,20)  EKTOT , EPTOT , UTOT , QTOT 

WRITE (ULOG, 40)  AMVEC ( 1 ) ,AMVEC(2) , AMVEC ( 3 ) 

WRITE  (ULOG,  45)  TAAI-I  (  3  ) +AMVEC  (  3  )  ,  ETOT 

WRITE (ULOG, 50)  (CMPOS(K) ,K=1,NDIM) 

WRITE (ULOG, 60)  (CMVEL ( K) , K=l , NDIM) 

WRITE (ULOG, 65)  (CMPOS(l) *CMVEL (2 ) -CMPOS (2) *CMVEL(1) ) 

CALL  SECONDS (CPUNEW) 

CPUSTEP=CPUNEW-CPUOLD 

CPUOLD=CPUNEW 

WRITE (ULOG, 70)  CPUSTEP 

15  FORMAT (/, 1 OX, 'MTOT,AMTOT  =  ' , 2 ( 1PE12 . 4 ) ) 

10  FORMAT (1 OX, 'TAE,TAAM, TAEK, TNAP=  ' , 3 ( 1PE12 . 4 ) , IX, 115 ) 

20  FORMATdOX,  'EK,EP,U,Q  =  '  ,  4  ( 1PE12  .  4  )  ) 

40  FORMATdOX,  'AMX,  AMY,  AMZ  =  '  ,  3  ( 1PE12  .  4  )  ) 

45  FORMATdOX,  'CONS.  AM,  ETOT  =  '  ,  2  ( 1PE12  .  4  )  ) 

50  FORMATdOX,  'CMPOS  =  ',3(1PE12.4)) 

60  FORMATdOX,  'CMVEL  =  '  ,  3  ( 1PE12  .  4)  ) 

65  FORMATdOX,  'CMAM  =  ',1PE12.4) 

70  FORMAT (/,15X, 'CPU  TIME  PER  STEP  =  ',1PE12.4,/) 

RETURN 
END 
QPROCESS  DC(BODYCEL,CONCOM,GAS) 

Q*********************************************************************** 

c 
c 

SUBROUTINE  OUTERRO (MESSAGE) 
C 

c 

c 
c 

C      SUBROUTINE  TO  OUTPUT  ERROR  MESSAGES  TO  THE  LOG  FILE. 
C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    
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CHARACTER* { * )  MESSAGE 

C    WRITE  THE  MESSAGE. 
C    

WRITE (ULOG, 40) 

4  0      FORMAT!/, IX, 72 ('*')) 

WRITE (ULOG, 50)  MESSAGE 

5  0      FORMAT (/, A) 

WRITE (ULOG, 40) 

RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 

C 

c 

SUBROUTINE  OUTHEAD (OUTUNIT) 
C 
C 

c 
c 

C      SUBROUTINE  TO  OUTPUT  A  STANDARD  HEADER  TO  A  LOGICAL  DEVICE 

C      UNIT  SPECIFIED  BY  OUTUNIT. 

C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    


INTEGER  OUTUNIT 
CHARACTER*3  VIND,QIND 


C============================= 

VIND='OFF' 

IF (SWITCH)  VIND='ON' 

QIND='NO' 

IF(USEQUAD)  QIND='YES' 

WRITE ( OUTUNIT ,10) 
WRITE (OUTUNIT, 20) 
WRITE (OUTUNIT, 20) 
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10 
20 
25 
28 
29 
30 

40 

50 

60 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


{OUTUNIT,2  5 
{OUTUNIT,2  0 
(OUTUNIT,10 
(OUTUNIT,2  0 
(OUTUNIT,2  8 
(OUTUNIT,29 
(OUTUNIT, 3  0 
(OUTUNIT,2  0 
(OUTUNIT, 4  0 
(OUTUNIT, 20 
(OUTUNIT, 5  0 
(OUTUNIT, 20 
(OUTUNIT, 60 
(OUTUNIT, 20 
(OUTUNIT, 10 


FORMAT (6X, 72 ( ' *' 
FORMAT (6X,  ' *  '  ,70 


FORMAT (6X, 


FORMAT (6X,  ' *  '  , 4X 
FORMAT (6X,  ' * '  ,  4X 
FORMAT (6X,  ' *  '  , 5X 
'NSTEPS=' 
FORMAT (6X, ' * ' , 5X 


FORMAT (6X,  ' *  '  , 5X 

0PF6.3,2X 

FORMAT (6X,  ' *  '  , 5X 


HEADLIN 


NBODIES , NGP , NMP , NSTEPS  ,  TD 


CN , ARAD , EPS , TOL , ZETA 


ALFA , BHTA , NU , I S S , GAMMA 


VIND,QIND 


') 


10X,1A50,10X, ' 


' INPUT  PARAMETERS : ' , 49X, ' * ' ) 

' ',50X,  '*') 

'NBODIES=' ,115, 2X, 'NGP=' ,I5,3X, 'NMP=' ,I2,3X, 

115, 2X, 'TD=' ,1PE10.3,2X, '*' ) 

'CNUMB=' ,0PF5.2,2X, 'ARAD=' ,0PF8.5,2X, 


'EPS=' ,0PF8.5,2X, 'TOL=' ,0PF5.2,2X, 'ZETA=' ,0PF5.2, 


'ALFA=' ,0PF5.2,2X, ' BHTA= ' ,0PF5.2,2X, 
'ISS=' ,1PE11.4,2X, 'GAMMA=' , 0PF5.2,2X 
'Vise.  SWITCH=' ,A3,10X, 'QUAD.  TERMS: 


2X, '*' ) 
'NU=' , 
,  '*') 
' ,A3,24X, 


RETURN 
END 
©PROCESS  DC ( BODYCEL , CONCOM , GAS ) 

C 

c 

SUBROUTINE  OUTLOG ( ISTEP) 
C 

c 

p**************************TC************************************ 

c 
c 

C      SUBROUTINE  TO  MONITOR  STATUS  OF  THE  PROGRAM  BY  WRITING  TO 

C      THE  LOG  FILE. 

C 

c 

0======================================================================= 
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/♦INCLUDE  NEVfflEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

INTEGER  ISTEP,I,NBSMAX,NBSMIN 
DOUBLE  PRECISION  HMIN, HAVG, NBSAVG 

C    IF  FIRST  CALL,  WRITE  HEADER.  '  •   ■ 

C    

IF(ISTEP.EQ.O)  CALL  OUTHEAD ( ULOG ) 
C  

c 

C    OUTPUT  SYSTEM  TIME  AND  FORCE  EVALUATION  DIAGNOSTICS. 

C 

WRITE (ULOG, 75)  TNOW, ISTEP, DTS, NMAX 
WRITE ( ULOG ,76)  TSTEP , DTIME , INCELLS 
WRITE ( ULOG ,80)  NTTOT , NTMIN , NTMAX , NTAVG 

7  5  FORMAT (//,7X, 'TIME: ' , 1PE11.4,2X, 'STEP:  ' , 114, 2X, 'DTS: ' , 1PE11.4, 

&       2X, 'NMAX:  ' , II) 

76  FORMAT ( 2 4X, 'TSTEP:  ',I6,2X, 

&      'DTIME: ' ,1PE11.4,1X, 'NCELLS:  ',115,/) 

80  FORMAT (7X, 'NTTOT,  MIN,  MAX,  AVG=  ' , 118 , 5X, 115 , 5X, 115 , 5X, 115 ) 

HMIN=1.D0 

HAVG=0.0 

HMAX=0.D0 

NBSAVG=0.0 

NBSMAX=0.0 

NBSMIN=3*NNBMAX 

DO  I=1+NMP,NGP-NAGP 

P=BODLIST(I) 

NBSMAX=MAX(NBSMAX,NNBS{P) ) 

NBSMIN=MIN{NBSMIN,NNBS(P) ) 

NBSAVG=NBSAVG+NNBS ( P) 

HMIN=MIN ( HMIN , H ( P ) ) 

HMAX=MAX(HMAX,H(P) ) 

HAVG=HAVG+H(P) 
ENDDO 

NBSAVG=NBSAVG/DFLOAT (NGP-NMP) 
HAVG=HAVG/DFLOAT (NGP-NMP) 
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WRITE (ULOG, 85)  HMIN, HMAX, HAVG 

WRITE (ULOG, 90)  NBSMIN, NBSMAX, NBSAVG 
85      FORMAT (7X, 'HMIN,  HMAX,  HAVG  =  ' , 3 ( E12 . 4 , 5X) ) 
90      FORMAT (7X, 'NBSMIN,  NBSMAX,  NBSAVG  =  ' , 2 ( 18 , 5X) , E12 . 4 ) 

RETURN 

END@PROCESS  DC (BODYCEL , CONCOM, GAS ) 

C 

c 

SUBROUTINE  OUTPOS 
C 

c 

c 

C       SUBROUTINE  TO  OUTPUT  THE  POSITIONS  AND  VELOCITIES  OF  THE 

C       PARTICLES  FOR  PLOTTING. 

C 

0===================================================================== 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

C 

C       DECLARATION  OF  LOCAL  VARIABLES 
C 

c====================================================================== 

INTEGER  I 
C 

WRITE (15,200)  NBODIES-NAGP+NACC , NDIM, TNOW, NGP-NAGP+NACC , NMP 
200   FORMAT (IX, 2 (I5,3X) , 1PE12.5,3X,2 (I5,3X) ) 
IF(NMP.NE.O)  THEN 
P=NMP 

WRITE (15, 10  0)  P0S(P,1) ,P0S(P,2) ,VEL(P,1) , VEL ( P , 2 ) ,MASS(P) ,U(P) 
ENDIF 

DO  I=1,NACC 

P=ACCLIST(I) 

WRITE (15, 10  0)  P0S(P,1) ,P0S(P,2) ,VEL(P,1) ,VEL(P,2) ,RH(P) ,H(P) 
ENDDO 

DO  I=1+NMP,NGP-NAGP 
P=B0DLIST(I) 

WRITE (15, 100)  POS(P, 1) ,P0S(P,2) ,VEL(P,1) ,VEL(P,2) ,RH(P) ,H(P) 
ENDDO 
DO  I=NGP+1,NB0DIES 

WRITE (15, 3  00)  P0S(I,1) ,P0S(I,2) , VEL (1,1) ,VEL(I,2) 
ENDDO 
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100  FORMATdX,  6(1PE13  .6,  IX)  ) 

300  F0RMAT(1X,4(1PE15.8, IX) ) 

RETURN 
END 
SPROCESS    DC(BODYCEL,CONCOM,GAS) 

C 
C 

SUBROUTINE    OUTSTAT(N) 
C 

c 

Q*  ie  *******  ir  ************  -k  *  *  -k  *  -k  -k  i:  -t  *  *  *  ir  -k  -k  ie  -k  **********  -k  **********  -k  *  ir  it  *  *  *  *  -k  *  * 

c 
c 

C  SUBROUTINE    TO    OUTPUT    INFORMATION   ABOUT    THE    SYSTEM    STATE    TO 

C  THE    LOG    AND    BODY    DATA    FILES. 

C 

c 

/♦INCLUDE   NEWHEAD    FORTRAN   A 


C         DECLARATION   OF    LOCAL    VARIABLES. 
C         

INTEGER   N,P, I 
0============================================================== 

C                       CALL    OUTTERMC     STEP    COMPLETED:     '  ,  N) 
C  

IF(N.EQ.O)     THEN 

CALL    OUTLOG(O) 

C  

C                              CALL    OUTBODS 
C  

IF{TNOW.EQ.0.D0)     THEN 

AMT=DSQRT(AMVEC(1) **2+AMVEC{2) **2+AMVEC(3) **2) 
WRITE (19, 80)     ETOT,EKTOT,EPTOT,UTOT,QTOT,AMT,TNOW 

CALL    OUTDISP(O) 
C  

C  WRITE (20,*)     NACC+NGP-NAGP,BNOW,TNOW 
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C  IFCNMP.NE.O)  THEN 

C  P=NMP 

C  WRITE(20, 100)  POS(P, 1) , P0S(P,2) ,NNBS(P) ,NNB(P) ,TBIN(P) 

C  ENDIF 

C  DO  I=1,NACC 

C  P=ACCLIST(I) 

C  WRITE(20,100)  POS(P, 1) , P0S(P,2) ,NNBS{P) ,NNB(P) ,TBIN(P) 

C  ENDDO 

C  DO  I=1+NMP,NGP-NAGP 

C  P=BODLIST(I) 

C  WRITE (20, 100)  POS(P, 1) , P0S(P,2) ,NNBS(P) ,NNB(P) ,TBIN(P) 

C  ENDDO 

10  0  FORMAT (IX, 2 (1PE13 . 6 , 3X) , 3 (13 , 2X) ) 

CALL  OUTPOS 
ENDIF 
CALL  ENERGY 


ELSE 

IF(TNOW.GE.TDUMP.OR.MOD(N,NOUTLOG) .EQ.O)  THEN 
CALL  CORRPOS ( ' CORRECT ' ) 


IF(MOD(N,NOUTLOG) .EQ.O)  THEN 

CALL    OUTPOS 
C                                            REWIND (UNIT=UBODSAS) 
C                                          CALL   OUTASCI 
C  


WRITE (20,*)     NACC+NGP-NAGP,TNOW 

IF(NMP.NE.O)     THEN 

VJRITE(20, 100)     P0S(NMP,1) ,P0S(NMP,2) ,NNBS(NMP) ,TBIN(NMP) 

ENDIF 

DO    I=1,NACC 

P=ACCLIST(I) 

WRITE (20, 100)  P0S(P, 1) ,P0S(P,2) ,NNBS(P) ,TBIN(P) 
ENDDO 
DO  I=1+NMP,NGP-NAGP 

P=BODLIST(I) 

WRITE (2  0, 100)  POS(P, 1) ,P0S(P,2) ,NNBS(P) ,TBIN(P) 
ENDDO 

ENDIF 

IF ( TNOW . GE . TDUMP . OR . N . EQ . NSTEPS )  THEN 
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REWIND (UNIT=U30DSAS) 

CALL  OUTASCI 
C  

IF(TNOW.GE.TDUMP)  CALL  OUTPOS 
C  

CALL  OUTDISP(N) 
C  

CALL  ZEROPOT 
C  

CALL  GRAVITY ( ' POT  ' ) 
C  

CALL  OUTLOG(N) 
C  

CALL  ENERGY 
C  

AMT=DSQRT(AMVEC(1) **2+AMVEC(2) **2+AMVEC(3) **2) 

WRITE (19, 80)  ETOT, EKTOT, EPTOT, UTOT, QTOT, AMT, TNOW 
80  FORMAT (IX, IPEll . 4 , IX, 4 (IPEIO . 3 , IX) ,1PE11.4,1X, 1PE9.2) 

C  WRITE (20,*)  NACC+NGP-NAGP,TNOW 

C  IF(NMP.NE.O)  THEN 

C  WRITE(20,100)  P0S(NMP,1) ,P0S(NMP,2) ,NNBS(NMP) ,TBIN(NMP) 

C  ENDIF 

C  DO  I=1,NACC 

C  P=ACCLIST(I) 

C  WRITE(20,100)  POS(P, 1) , P0S(P,2) ,NNBS(P) ,TBIN(P) 

C  ENDDO 

C  DO  I=1+NMP,NGP-NAGP 

C  P=BODLIST(I) 

C  WRITE(20, 100)  POS(P, 1) ,P0S(P,2) ,NNBS(P) ,TBIN(P) 

C  ENDDO 

TDUMP=TDUMP+TD 

CALL  OUTDISP(N) 
C  

ENDIF 

CALL  CORRPOS ( ' RESET   ' ) 
C  

ENDIF 

ENDIF 

RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 
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c 
c 

SUBROUTINE    OUTTERM (MESSAGE, N) 
C 

c 

C 

c 

C      SUBROUTINE  TO  OUTPUT  A  MESSAGE  TO  THE  TERMINAL. 
C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

CHARACTER' ( * )  MESSAGE 
INTEGER  N 

C    WRITE  THE  MESSAGE. 
C    

C        WRITE (UTERM, *)  MESSAGE, N 

RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 

Q******************************************************-),**************** 

c 
c 

SUBROUTINE  SAPBOX 
C 

c 

c 
c 

C  SUBROUTINE  TO  BUILD  LIST  OF  POSSIBLE  NEIGHBORS,  NBSLIST,  TO 

C  PARTICLES  IN  CURi^ENT  TIME  BIN  (ADVLIST) .  RESETS  SYSTEM  BOX  TO 

C  CONTAIN  ONLY  PARTICLES  IN  NBSLIST. 
C 

c 


/* INCLUDE  NEWHEAD  FORTRAN  A 
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C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

DOUBLE  PRECISION  POSMIN (NDIM) , POSMAX (NDIM) 

INTEGER  K,FLAG, J,NVAL,NUM, P, I, IBINS (NBINMAX+1 ) , NBINS 

C    BUILD  LIST  OF  POSSIBLE  NEIGHBORS  FROM  OVERLAPPING  TBINS . 
C 

NBINS=0 

DO  1=0,:.,  ..J< 

IF(RMA:<(I) .GE.RMIN(BNOW) .AND.RMIN(I) .LE.RMAX(BNOW) )  THEN 
NBINS=NBINS+1 
IBINS (NBINS) =1 
END  IF 
ENDDO 
NNBSLIS=0 
DO  J=l, NBINS 

CALL  WHENIEQ(NGP,TBIN, 1,IBINS(J) , TEMPLIS, NVAL) 

NUM=0 

IF (TEMPLIS (1) .EQ.NMP)  NUM=1 

DO  I=1+NUM,NVAL 

K=NNBSLIS+I-NUM 
NBSLIST (K) =TEMPLIS ( I ) 
ENDDO 

NNBSLIS=NNBSLIS+NVAL-NUM 
ENDDO 

C    DETERMINE  IF  A  RESIZING  IS  REQUIRED. 
C    

IF (NNBSLIS . LT . NBODLIS )  REBOX= . TRUE . 
CCC  IF  I'M  NOT  BUILDING  A  TREE  FOR  GRAVITY: 
CCC      REBOX= . TRUE . 

IF(REBOX)  THEN 

C    DETERMINE  MINIMUM  AND  MAXIMUM  COORDINATES  OF  BODIES. 
C    

DO  1=1, NDIM 

POSMIN(I) =100. 
POSMAX(I)=-100. 
ENDDO 
DO  K=1,NDIM 

DO  1=1, NNBSLIS 
P=NBSLIST(I) 

POSMAX ( K) =MAX ( POSMAX ( K) , POS ( P , K) ) 
POSMIN (K)=MIN( POSMIN (K) ,POS(P,K) ) 
ENDDO 
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ENDDO 

C    IF  A  RESIZING  IS  NECESSARY,  RECOMPUTE  RSIZE  AND  RMIN . 
C    

RSIZE=O.DO 

DO  70  K=1,NDIM 

RSIZE=MAX{RSIZE, POSMAX(K) -POSMIN(K) ) 
7  0         CONTINUE 

DO  8  0  K=1,NDIM 

RBMIN(K)=0.5D0* (POSMIN{K) +POSMAX(K) ) -0 . 5D0*RSIZE 
80         CONTINUE 
END  IF 
RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 

c 
c 

SUBROUTINE  SETBOX 
C 

c 

Q*  ****************  1,  ***********************************  -k  **************  i,  *  i, 

c 
c 

C  SUBROUTINE  TO  ADJUST  SYSTEM  BOX  SO  THAT  IT  CONTAINS  ALL  BODIES. 

C  THE  LOCAL  VARIABLE  REBOX  INDICATES  WHETHER  A  RESIZING  OF  THE 

C  SYSTEM  BOX  IS  TO  TAKE  PLACE.   THE  VARIABLES  POSMIN  AND  POSMAX 

C  ARE  THE  MINIMUM  AND  MAXIMUM  COORDINATES  OF  BODIES  IN  EACH 

C  DIMENSION. 
C 

c 

0======================================================================= 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    


DOUBLE  PRECISION  POSMIN (NDIM) , POSMAX (NDIM) , POSX (NBODSMA) , 
&  POSY (NBODSMA) , POSZ (NBODSMA) 

INTEGER  K, ISMIN,ISMAX,I 

EQUIVALENCE  { POSX { 1) , POS (1,1)), ( POSY ( 1 ) , POS (1,2)) 
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C    DETERMINE  Mir!i::uM  AND  MAXIMUM  COORDINATES  OF  BODIES. 
C    

POSMIN(l) =?OSX(ISMIN(NBODIES, POSX,  1) 

POSMIN ( 2 ) =?OSY { ISMIN (NBODIES , POSY ,  1 ) 
C        P0SMIN(3) =?OSZ( ISMIN (NBODIES, P0SZ,1) 

POSMAX(l) =?0SX(ISMAX (NBODIES, POSX, 1) 

POSMAX ( 2 ) =  POSY ( I SMAX ( NBODIES , POSY , 1 ) 
C        P0SMAX(3) =P0SZ(ISMAX(NB0DIES,P0SZ,1) 

C    DETERMINE  IF  A  RESIZING  IS  REQUIRED. 
C    

DO  50  K=1,XDIM 

if(rbmi::(k) . gt . posmin (k) . or . rbmin (k) +rsize . lt. posmax (k) . 
&       or.:j:-:bslis.lt.nbodlis)  rebox=.true. 

50      continue 

C    IF  A  resizing  is  NECESSARY,  RECOMPUTE  RSIZE  AND  RMIN. 
c    

IF(REBOX)  THEN 

DO  7  0  K=1,NDIM 

RSIZE=MAX (RSIZE, POSMAX (K) -POSMIN(K) ) 
70         CONTINUE 

DO  80  K=1,NDIM 

RBMIN ( K)=0.5D0*( POSMIN (K) +POSMAX(K) ) -0 . 5D0*RSIZE 

8  0         CONTINUE 

ENDIF 

REBOX=. FALSE. 

RETURN 
END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 

c 
c 

SUBROUTINE  STARTOU 
C 
C 

Q*  ******************  -k  **************************************************  * 

c 
c 

C      SUBROUTINE  TO  INITIALIZE  DISK  FILES  FOR  SUBSEQUENT  INPUT/OUTPUT. 
C      ALL  FILES,  OTHER  THAN  THE  BINARY  BODY  DATA  FILE,  ARE  ASSUMED  TO 
C      BE  OF  ASCII  (TEXT)  FORM. 
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c 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    OPEN  PARAMETER  RILE. 
C    

OPEN(UNIT=UPARS) 

C    OPEN  LOG  FILE. 
C    

OPEN(UNIT  =  'JLOG) 

C    OPEN  INPUT  BODV  DATA  FILE. 
C    

OPEN  ( UNIT  =  :;30DS IN) 

C    OPEN  OUTPUT  3I;;ARY  BODY  DATA  FILE. 
c         

C        0PEN(UNIT=U30DS0U) 

C    OPEN  OUTPUT  ASCII  BODY  DATA  FILE. 
C    

OPEN  ( UNIT='JBODSAS ) 

C    OPEN  OUTPUT  POSITION  DATA  FILE. 
C    

0PEN(UNIT=15) 

C    OPEN  OUTPUT  VELOCITY  DATA  FILE. 
C    

0PEN(UNIT=16) 

C    OPEN  OUTPUT  MASS  DATA  FILE. 
C    

0PEN(UNIT=i.7) 

C    OPEN  OUTPUT  PRCTOSTAR  DATA  FILE 
C    

0PEN{UNIT=i3) 

C    OPEN  OUTPUT  ENERGY  DATA  FILE. 
C    

0PEN(UNIT=19) 
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C    OPEN  OUTPUT  NUMBER  DENSITY  DATA  FILE 
C    

OPEN{UNIT=20) 

C    OPEN  OUTPUT  DENSITY  AT  GRID  POINTS  FILE. 
C    

0PEN(UNIT=21) 

C    OPEN  OUTPUT  BIN  DATA  FILE. 

C    

OPEN(UNIT=22) 

RETURN 

END 
@PROCESS  DC(BODYCEL,CONCOM,GAS) 
©PROCESS  DIRECTIVE ( ' *VDIR: ' ) 

c 
c 

SUBROUTINE  STEPPOS 
C 

c 

c 
c 

C      SUBROUTINE  TO  ADVANCE  THE  POSITIONS  OF  THE  BODIES  FOR  A 

C      TIMESTEP  DTIME/2. 

C 

C 

/* INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

INTEGER  P,K,I 

C    LOOP  OVER  ALL  SPATIAL  COORDINATES  FOR  ALL  BODIES. 
C    

DO  200  K=1,NDIM 
C*VDIR:  IGNORE  RECRDEPS 

DO  100  I=1,NB0DLIS 
P=BODLIST(I) 
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POS(P,K)=POS(P,K) +VEL{P,K) *DTIME2 
100         CONTINUE 
200     CONTINUE 
C 

C     STEP  ACCRETED  PARTICLES  WITH  P=l 

C 

DO  K=1,NDIM 
C*VDIR:  IGNORE  RECRDEPS 
DO  I=1,NACC 

P=ACCLIST(I) 

POS(P,K)=POS(P,K) +VEL(1,K) *DTIME2 
ENDDO 
ENDDO 

C    UPDATE  POSITION  TIME,  SYSTEM  TIME. 
C    

TP0S=TP0S+DTIME2 

TELAPS=TELAPS+DTIME2 

TNOW=TPOS 

RETURN 
END 

ePROCESS  DC(BODYCEL,CONCOM,GAS) 

c 
c 

SUBROUTINE  STEPSYS (N) 
C 

c 

c 
c 

C      SUBROUTINE  TO  ADVANCE  THE  STATE  OF  THE  SYSTEM  BY  ONE  LARGE 

C      TIMESTEP. 

C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES, 
C    


INTEGER  N 
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C    UPDATE  POSITIONS  BY  1/2  STEP. 
C    

IF(TELAPS.NE.O . DO . AND . NADVLIS . NE . 0)  THEN 
CALL  HALFSTP(N) 
C  

ELSE 

IF(TELAPS.NE.O.DO)  THEN 
DO  K=1,NDIM 

DO  I=1,NB0DLIS 
P=BODLIST(I) 
VET(P,K)=VEL(P,K) 
ENDDO 
ENDDO 
END  IF 

CALL  ESTVEL 

C  

CALL  STEPPOS 

C  

ENDIF 
C 

C   MAKE  LIST  OF  PARTICLES  TO  BE  ADVANCED  IN  THE  NEXT  HALF  STEP. 
C 

BNOW=NMAX 

CALL    V;HENIEQ(NB0DIES,TBIN,1,BN0W,ADVLIST, NADVLIS) 

c  

NGAS=0 

1  =  0 

D0WHILE(ADVLIST(I+1) .LE. NOP. AND. (I+l) .LE. NADVLIS) 

1  =  1  +  1 
ENDDO 
NGAS=I 

CALL  HALFSTP(N) 
C  

CALL    AI4FLUX 
C  

CALL   ACCRET(N) 
C  

CALL  COURANT(N) 
C  

RETURN 

END 
©PROCESS  DC(BODYCEL,CONCOM,GAS) 
©PROCESS  DIRECTIVE {' *VDIR: ' ) 

c 
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c 

SUBROUTINE    STEPVEL 
C 

c 

c 
c 

C      SUBROUTINE  TO  ADVANCE  THE  VELOCITIES  OF  THE  BODIES  FOR  A 

C      TIMESTEP  DTIME. 

C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES . 
C    


INTEGER  P,K,I 

DOUBLE  PRECISION  DTNOW 


C    LOOP  OVER  ALL  VELOCITY  COMPONENTS  FOR  ALL  BODIES. 
C    

DTNOW=DTS / 2 . DO  *  *  ENOW 
DO  200  K=1,NDIM 
C*VDIR:  IGNORE  RECRDEPS 

DO  100  I=1,NADVLIS 
P=ADVLIST(I) 

VEL ( P , K) =VEL ( P , K) +ACC ( P , K) *DTNOW 
VET(P,K)=VEL(P,K) -ACC(P,K) *DTNOW*0.5D0 
100        CONTINUE 
200     CONTINUE 

C    EVOLVE  INTERNAL  ENERGIES. 

C 

DO  I=1,NADVLIS 

P=ADVLIST(I) 

U(P) =U(P) +UDOT(P) *DTNOW 
ENDDO 

RETURN 

ENDSPROCESS  DC ( BODYCEL , CONCOM , GAS ) 
Q*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  -k  *  *  *  *  1,  *  *  *  i,  *  -k  *  *  i,  i,  *  *  i,  i,**  i,  i,  i,  -^  i,  4,  i,  i,  ir  ^,  ^,  ^,  4,  ^,  i,  i,  ^,  ^  i,  i,  ^  ^  ^ 
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c 

SUBROUTINE    STOPOUT 
C 

c 

c 
c 

C      SUBROUTINE  TO  CLOSE  THE  OUTPUT  FILES. 
C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    CLOSE  THE  OPEN  FILES. 
C    

CLOSE (UNIT=UBODSOU) 
CLOSE (UNIT=UBODSAS) 
CLOSE {UNIT=ULOG) 

RETURN 
END 
(apROCESS  DC(BODYCEL,CONCOM,GAS) 

Q*************************************-^********************************* 

c 
c 

SUBROUTINE  TERROR (MESSAGE) 
C 

c 

C 

c 

C      SUBROUTINE  TO  TERMINATE  THE  PROGRAM  AS  THE  RESULT  OF  A  FATAL 
C      ERROR,  CLOSE  THE  OUTPUT  FILES,  AND  DUMP  TIMING  INFORMATION. 
C 

c 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    


CHARACTER* (*)  MESSAGE 
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C    WRITE  ERROR  MESSAGE  TO  THE  LOG  FILE. 
C    

CALL  OUTERRO (MESSAGE) 
C  

WRITE (20,*)  NACC+NGP-NAGP,TNOW 
IF(NMP.NE.O)  THEN 

WRITE (20, 10  0)  P0S(NMP,1) , P0S(NMP,2) ,NNBS(NMP) ,TBIN(NMP) 
END  IF 
DO  I=1,NACC 

P=ACCLIST(I) 

WRITE (20, 100)  P0S(P, 1) , P0S(P, 2) ,NNBS(P) ,TBIN(P) 
ENDDO 

DO  I=1+NMP,NGP-NAGP 
P=BODLIST(I) 

WRITE (20, 100)  POS(P, 1) , POS(P, 2) ,NNBS(P) ,TBIN(P) 
ENDDO 
100        FORMAT (IX, 2 (1PE13 . 6 , 3X) , 2 ( 13 , 3X) ) 

C    OUTPUT  SYSTEM  STATE. 
C    

C  CALL  CORRPOS ( ' CORRECT ' ) 

C  

C  CALL  ZERO POT 

C  

C  CALL  GRAVITY ( ' POT  ' ) 

C  

CALL  OUTASCI 

C  

C  CALL  OUTBODS 

C  

c 

C    STOP  TIMING,  OUTPUT  TIMING  DATA,  CLOSE  FILES,  TERMINATE  THE 

C    SIMULATION. 

C 

CALL  SECONDS { C PUT 1) 

C  

CALL  OUTCPU 

C  

CALL  STOPOUT 

C  

STOP 
END 
OPROCESS  DC(BODYCEL,CONCOM,GAS) 
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C 
C 

SUBROUTINE    TOLTEST 
C 

c 

c 
c 

C      SUBROUTINE  TO  TERMINATE  THE  PROGRAM  AS  THE  RESULT  OF  A  FATAL 
C      ERROR,  CLOSE  THE  OUTPUT  FILES,  AND  DUMP  TIMING  INFORMATION. 
C 

c 

c===================================== ================================== 

/♦INCLUDE  NEWHEAD  FORTRAN  A 

INTEGER  P , I , J , NTERMS , SMINDEX ,  NTOL ,  K 

PARAMETER (NTOL= 5 ) 

DOUBLE  PRECISION  TOLO , DX, DY, DRDOTDR, SDRDOTD, RINVEFF, R3INVEF, 
&  EPSI , DRDELDR , DRSM , EPSP , ACCSM, ACCI , PMASS , 

&  DEVX,DEVY,TOLER(NTOL) 

DATA  TOLER/0.4D0, 0 . 5D0 , 0 . 6D0 , 0 . 7D0  ,  0.8D0/ 

WRITE(22,*)  NBODLIS 
DO  1=1, NBODLIS 
P=BODLIST(I) 
PMASS=MASS(P) 
MASS(P)=O.DO 
EPSP=EPS 
EPSI=EPS 
DO  J=l, NBODLIS 

K=BODLIST(J) 

DX=POS ( P, 1) -POS (K, 1) 

DY=P0S(P,2) -P0S(K,2) 

DRDOTDR=DX**2+DY**2 

SDRDOTD=SQRT (DRDOTDR) 

RINVEFF=1 . / (SDRDOTD+TINY) 

R3INVEF=RINVEFF/ (DRDOTDR+TINY) 

DRDELDR=SDRDOTD*NINTERP/ (EPSP+EPSI) 

SMINDEX=DRDELDR 

SMINDEX=MIN ( NINTERP , SMINDEX ) 

DRSM=MIN { ONE , DRDELDR- SMINDEX ) 

ACCSM= ( 1 . -DRSM) * AC SMOOT (SMINDEX) +DRSM*ACSMOOT (1+SMINDEX) 

R3 INVEF=ACCSM*R3 INVEF 

ACCI=MASS (K) *R3 INVEF 

ACC(P, 1)=ACC(P, 1) -DX*ACCI 

ACC ( P , 2 ) =ACC ( P , 2 ) -DY*ACCI 
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ENDDO 

MASS(P)=PMASS 

WRITE (22,*)  POS ( P , 1 ) , POS ( P , 2 ) , ACC ( P , 1 ) , ACC ( P , 2 ) 
VEL(P,1)=ACC(P, 1) 
VEL(P,2)=ACC(P,2) 
ACC(P,1)=0.D0 
ACC(P,2)=0.D0 
ENDDO 

DO  J=1,NT0L 

T0L2INV=1 .D0/TOLER(J) **2 
DO  I=1,NB0DLIS 

P=BODLIST(I) 

CALL  TREEWAL(P,NTERMS) 

CALL  GRAVSUM ( P , NTERMS , ' ACC  ' ) 

DEVX=ACC ( P , 1 ) -VEL ( ? ,  1 ) 

DEVY=ACC ( P , 2 ) -VEL ( P  ,  2 ) 

WRITE (22,*)  DEVX,DEVY 

ACC(P, 1)=0.D0 

ACC(P,2)=0.D0 
ENDDO 
ENDDO 

TOL2INV=l.D0/TOL**2 

RETURN 
END 
SPROCESS  DC(BODYCEL,CONCOM,GAS)  DIRECTIVE (' *VDIR :' ) 

C 

c 

SUBROUTINE  TREEWAL ( P , NTERMS ) 
C 

c 

c 
c 

C  SUBROUTINE  TO  WALK  THROUGH  THE  TREE  AND  ACCUMULATE  THE  LIST  OF 

C  INTERACTIONS  FOR  BODY  P.   THE  INTERACTION  LIST  IS  PASSED  BACK 

C  TO  THE  CALLING  SUBROUTINE  ACCGRAV  IN  THE  VECTOR  ITERMS,  WHICH 

C  IS  EQUIVALENCED  TO  THE  COMMON  ARRAY  ACTLIST.   VECTORIZATION  IS 

C  ACHIEVED  BY  PROCESSING  ALL  CELLS  AT  THE  SAME  LEVEL  IN  THE  TREE 

C  SIMULTANEOUSLY  (HERNQUIST,  J.  COMPUT .  PHYS . ,  SUBMITTED  [1988]). 

C 

C 

0======================================================================= 

/♦INCLUDE  NEWHEAD  FORTRAN  A 
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C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

DOUBLE  PRECISION  CVMGT, TESTKEE 

INTEGER  P, I,NNODES,MKEEP,NSUBDIV,NTERMS, ITERMS (NBODSMA) , 
&  NODELIS (NBODSMA) , KEEPTER (NBODSMA) 

LOGICAL  TOLCRIT 

EQUIVALENCE  (ITERMS ( 1 ) ,ACTLIST(1) ) , (NODELIS (1) , CELLIST (1) ) , 
&  (KEEFTER(l) , PARENT (1) ) 

C===================================================================== 

C    INITIALIZE  LIST  OF  CELLS  TO  EXAMINE. 
C    

NTERMS=0 
NN0DES=1 
NODELIS (1) =ROOT 

10      CONTINUE 

C    LOOP  UNTIL  NO  CELLS  ARE  LEFT  TO  EXAMINE. 
C    

IF(NNODES.GT.O)  THEN 

C    APPLY  TOLERANCE  CRITERION  TO  LIST  OF  CELLS. 
C    

DO  20  I=1,NN0DES 

T0LCRIT=(P0S(P,1) -POS (NODELIS (I) ,1) ) **2+ (PCS ( P, 2 ) - 
&  POS(NODELIS{I) ,2) ) **2.GE. 

&  (CELLSIZ (NODELIS (I) ) **2*TOL2INV) 

TESTKEE=CVMGT (TWO, MINUST, TOLCRIT) 
KEEPTER ( I ) =INT (TESTKEE) 
20         CONTINUE 

C 

C    ADD  CELLS  WHICH  SATISFY  CRITERION  TO  INTERACTION  LIST.   NOTE  THAT, 

C    DEPENDING  ON  THETA,  SELF- INTERACTION  TERM  WILL  BE  INCLUDED. 

C 

CALL  WHENIGT(NNODES, KEEPTER, 1,0, ISUBSET, NKEEP) 

IF (NTERMS+NKEEP . GT . NBODSMA) 
&         CALL  TERROR ( '  ARRAY  OVERFLOW  IN  TREEWAL  ' ) 
C  

DO  3  0  1=1, NKEEP 
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ITEPi-IStNTERM.;-!)  =NODELIS  ( ISUBSET  ( I)  ) 
3  0         CONTINUE 

NTERMS=NTERMS^MKEEP 

C 

C    ADD  SUBCELLS  OF  CELLS  '.-HICH  FAIL  TOLERANCE  CRITERION  TO  LIST  OF 

C    CELLS  TO  EXAMINE. 

C 

CALL  WHENILT(NNODES,KEEPTER, 1,0, ISUBSET, NSUBDIV) 

IF ( 4*NSUBDIV . GT . XBODSMA . OR . 4  *NSUBDIV . GT . NCELLS ) 
&         CALL  TERROR ( '  ASUBP  OVERFLOW  IN  TREEWAL  ' ) 
C  

C*VDIR:  IGNORE  REORDERS 

DO  40  1=1, NSUBDIV 

ASUBP ( I) =SUBP(NODELIS( ISUBSET (I) ) ,1) 
ASUBP (I+NSU3DIV) =SUBP (NODELIS ( ISUBSET ( I) ) ,2) 
ASUBP ( 1  +  2  *NSUBDIV) =SUBP (NODELIS ( ISUBSET ( I )  )  , 3 ) 
ASUBP ( 1  +  3  *N3U3DIV) =SUBP (NODELIS ( ISUBSET ( I )  )  , 4 ) 
C  NEED  FOLLOWING  FOR  3D. 

C  ASUBP (1+4 'NSUBDIV) =SUBP (NODELIS (ISUBSET (I) ) ,5) 

C  ASUBP (1  +  5  *NSUBDIV) =SUBP (NODELIS ( ISUBSET ( I )  )  , 6 ) 

C  ASUBP ( 1+6 *NSUBDIV) =SUBP (NODELIS ( ISUBSET ( I ) ) ,7) 

C  ASUBP (I+7*KSU3DIV)=SUBP (NODELIS (ISUBSET (I) ) ,8) 

40         CONTINUE 

CALL  WHENNE(4*NSUBDIV, ASUBP, 1, 0, ISUBSET, NNODES) 

DO  60  I=1,NN0DES 

NODELIS ( I ) =ASUBP ( ISUBSET ( I ) ) 
60         CONTINUE 

GO  TO  10 

ENDIF 

RETURN 
END 
©PROCESS  DC ( BODYCEL , CONCOM , GAS )  DIRECTIVE ( ' * VDIR : ' ) 

Q*  1,  i,  1,  1,  *  *  **************  -k  **********************************  **********  -k  *  *  *  * 

c 
c 

SUBROUTINE  WALKIT ( P, HP, NTERMS) 
C 

c 


240 

c 
c 

C  SUBROUTINE  TO  WALK  THFOUGH  THE  TREE  AND  ACCUMULATE  THE  LIST  OF 

C  NEIGHBORS  FOR  BODY  ?.   THIS  LIST  OF  NEIGHBORS  IS  PASSED  BACK 

C  TO  THE  CALLING  SUBROUTINE  HYDRO  IN  THE  VECTOR  TEMPLIS  AND  THE 

C  DISTANCES  ARE  PASSED  IM  VECTOR  WORKVEC .   VECTORIZATION  IS 

C  ACHIEVED  BY  PROCESSIKG  ALL  CELLS  AT  THE  SAME  LEVEL  IN  THE  TREE 

C  SIMULTANEOUSLY.  THIS  .SUBROUTINE  IS  ADAPTED  FROM  TREEWAL . 

C  R.  DRIMMEL  1991. 

C 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

DOUBLE  PRECISION  C'MGT, TESTKEE, RTWO, DR, HP 
INTEGER  P, I,K,NNODES,NKEEP,NSUBDIV,NTERMS, 
&  NODELIS(NEODSMA) , KEEPTER (NBODSMA) 

LOGICAL  TOLCRIT 


C= 


RTWO=DSQRT(TWO) 

C    INITIALIZE  LIST  OF  CELLS  TO  EXAMINE. 
C    

NTERMS=0 
NN0DES=1 
N0DELIS(1)=R00T 

10    CONTINUE 

C    LOOP  UNTIL  NO  CELLS  ARE  LEFT  TO  EXAMINE. 
C    

IF(NNODES.GT.O)  THEN 

C    APPLY  TOLERANCE  CRITERION  TO  LIST  OF  CELLS. 
C 

DO  20  I=1,NN0DES 

TOLCRIT=  DSQRT( (P0S(P,1) -POS (NODELIS ( I) ,1) ) **2+ 
&  {POS(P, 2) -POS (NODELIS (I) ,2) ) **2) 

&  -RTWO*CELLSIZ (NODELIS ( I) ) .GE.HP 


241 

TESTKEE=CVMGT  (  : '  .'O ,  MINUST ,  TOLCRIT ) 
KEEPTER(I)=Ii;':  TESTKEE) 
20       CONTINUE 

C 

C    CELLS  WHICH  SATISFY  CRITERION  ARE  IGNORED. 

C    ADD  SUBCELLS  OF  CELLS  VJHICH  FAIL  TOLERANCE  CRITERION  TO  LIST  OF 

C    CELLS  TO  EXAMINE.  IF  SL'BCELLS  ARE  LEAVES  THAT  CONTAIN  A  GAS  PARTICLE 

C    THEY  ARE  ADDED  TO  INTERACTION  LIST 

C 

CALL  WHENILT (NN0DE3 , KEEPTER, 1,0, ISUBSET, NSUBDIV) 

IF ( 4  *NSUBDIV . GT .  r;E ODSMA . OR . 4  *NSUBDIV . GT . NCELLS ) 
&       CALL  TERROR ( '  A3UBP  OVERFLOW  IN  WALKIT  ' ) 


C*VDIR:  IGNORE  RECRDEPS 

DO  40  1=1, NSUBDIV 

ASUBP(I)=SUBP!::ODELIS(ISUBSET(I)  )  ,1) 
ASUBPd+NSUBDI-/)  =SUBP  (NODELIS  ( ISUBSET  ( I)  )  ,2) 
ASUBP(I+2*NSU3DIV)=SUBP(NODELIS{ ISUBSET (I) ) ,3) 
ASUBP( 1+3 *NSUBDIV)=SUBP (NODELIS (ISUBSET (I) ) ,4) 
C    NEED  FOLLOWING  FOR  3D: 

C  ASUBP(I+4*NSUBDIV)=SUBP (NODELIS (ISUBSET (I) ) ,5) 

C  ASUBP(I+5*NSUBDIV)=SUBP (NODELIS (ISUBSET (I) ) ,6) 

C  ASUBP(I+6*NSUEDIV)=SUBP (NODELIS (ISUBSET (I) ) ,7) 

C  ASUBP( 1+7 *NSUBDIV)=SUBP (NODELIS (ISUBSET (I) ) ,8) 

4  0       CONTINUE 

CALL  WHENILE(4*NSUBDIV,ASUBP, 1,NGP, ISUBSET, NNODES) 

IF (NTERMS+NNODES . GT . NBODSMA) 
&       CALL  TERROR ( '  ARRAY  OVERFLOW  IN  WALKIT ' ) 

DO  1=1, NNODES 

KEEPTER ( I ) =ASUBP ( ISUBSET ( I ) ) 
ENDDO 

CALL  WHENIGT (NNODES , KEEPTER, 1,0, ISUBSET,  NKEEP) 

DO  1=1, NKEEP 

k=keepter ( isubset ( i ) ) 

dr=dsqrt(  (p03(r.,  1)-p0s(p,1)  )  *  *2+ (  pos  (k,  2  )  -p0s(p,2)  )  **2) 

if(dr.lt.hp. 

nterms=nter;-:3+i 
templis (nterms) =k 

WORKVEC (NTERMS) =DR 


242 

ENDIF 
ENDDO 

CALL   WHENIGT(4*M£VEDIV,ASUBP, 1,NB0DSMA, I SUBSET, NNODES) 

DO    60    1=1, NNODES 

NODELIS  ( I )  =ASL'l:  P  ( ISUBSET  ( I )  ) 
60  CONTINUE 

GO    TO    10 

ENDIF 

C 

C         SEARCH    THROUGH   ACCRETE:     PARTICLES 

C 

IF(NACC.NE.O.AND.  ?.;:E.NMP)     THEN 
DR=DSQRT( (POS{NMP, : ) -P0S(P,1) ) **2+ (P0S(NMP,2) -P0S{P,2) ) **2) 
IF(DR.LT. (ARAD+HP) !     THEN 
DO    I=1,NACC 
K=ACCLIST(I) 

DR=DSQRT( (POS(K, 1) -POS(P, 1) ) **2+ (POS (K, 2 ) -P0S(P,2) ) **2) 
IF(DR.LT.HP.ii;O.K.NE.P)     THEN 
NTERMS=NTERMS+1 
TEMPLIS(NTERMS)=K 
WORKVEC (NTEEMS) =DR 
ENDIF 
ENDDO 
ENDIF 
ENDIF 

RETURN 
END 
©PROCESS    DC ( BODYCEL , CONCOM , GAS ) 

(2*  *  *  *  -k  *  *  -k  *  -k  *  *  -k  -k  ie  *  *  *  *  *  *  -K  *  -k  *  ^  ^  ^  ic  -k  *  -k  *  -k  *  *  *  *  *  *  *  *  *  -k  *  *  *  *  *  *  -k  *  *  -k  *  *  *  *  *  *  *  *  *  -k  -k  *  *  *  -k  *  * 

c 
c 

S'^BROUTINE    ZEROACC 
C 

c 

c 
c 

C  SUBROUTINE   TO    ZERO    GVT   ACCELERATION. 

C 

c 


243 

/♦INCLUDE  NEWHEAD  FORTPAM  .'. 


C    DECLARATION  OF  LOCAL  ".V.7.IABLES  . 
C    

INTEGER  P 
0========================:=  ============================================= 

DO  10  I=1,NADVLIS 
P=ADVLIST(I) 
ACC(P,1)=0. 
ACC(P,2)=0. 
C  ACC{P,3)=0. 

10      CONTINUE 

RETURN 
END 
©PROCESS  DC ( BODYCEL , CONCOM  JAS ) 

C 

c 

S"-3R0UTINE  ZEROPOT 
C 
C 

c 
c 

C      SUBROUTINE  TO  ZERO  OUT  POTENTIAL. 
C 

c 

c========================= ============================================== 

/♦INCLUDE  NEWHEAD  FORTRAN  A 


C    DECLARATION  OF  LOCAL  VARIABLES. 
C    

INTEGER  P 

0========================= ========= 

DO  10  P=1,NB0DIES 
PHI(P)=0. 
10      CONTINUE 
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RETURN 
END 


C 
C 

SUBROUTINE  RANSET(SD) 
C 

c 

C 
C 

C      DUMMY  SUBROUTINE  TO  :;:iTIALIZE  RANDOM  NUMBERS. 
C 

c 

c==========================^ ============================================= 

DOUBLE  PRECISION  SD 

RETURN 
END 

C 

c 

SUBROUTINE  SECONDS (CPU) 
C 

c 

(lll^*************************  **************************** 

c 
c 

C      SUBROUTINE  TO  RETURN  ELAPSED  CPU  TIME. 
C 

c 

c======================================================================= 

DOUBLE  PRECISION  CPU 
INTEGER   NCODE 

CALL  CPUTIME ( CPU , NCODE ) 

CPU=CPU/1.0D06 

RETURN 
END 
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c 
c 

FU::CTION  CVMGP(Y1,Y2,Y3) 

c 
c 

c 
c 

C      FUNCTION  TO  PERFORM  CONDITIONAL  VECTOR  MERGE  ON  POSITIVE 

C      REQUIRED  BY  CRAY  VERSION. 

C 

c 


DOUBLE    PRECISION   CU-IGP ,  Yl ,  Y2  ,  Y3 

IF(Y3 .GE.0.0)    THEN 

CVMGP=Y1 
ELSE 

CVMGP=Y2 
ENDIF 

RETURN 
END 

c 
c 

FUNCTION  CVMGT(Y1,Y2,Y3) 
C 

c 

Q*  ************************  ^  ********************************************  * 

c 
c 

C      FUNCTION  TO  PERFORM  CONDITIONAL  VECTOR  MERGE  ON  TRUE  REQUIRED 

C      BY  CRAY  VERSION. 

C 

c 

c========================== ============================================= 

DOUBLE  PRECISION  C^/MGT,Y1,Y2 
LOGICAL  Y3 

IF(Y3)  THEN 

CVMGT=Y1 
ELSE 

CVMGT=Y2 
ENDIF 
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RETURN 
END 

p************************-*- '********************************************* 
C 

c 

FUNCTION  ISMAX(N,X,INC) 
C 

c 

c 
c 

C      FUNCTION  TO  LOCATE  I::DSX  OF  MAXIMUM  ELEMENT  OF  A  REAL  VECTOR. 
C 

c 

0======================================================================= 


DOUBLE  PRECISION  X ; 1 ) , XMAX 
INTEGER  ISMAX,N,INC,I 

ISMAX=1 
XMAX=X(1) 

DO  10  1=2, N, INC 

IF(X(I) .GT.XMAXi  THEN 
ISMAX=I 
XMAX=X(I) 
ENDIF 
10      CONTINUE 

RETURN 
END 

C 

c 

FUNCTION  ISMIN{N,X,INC) 
C 

c 

C 

c 

C      FUNCTION  TO  LOCATE  IMDEX  OF  MINIMUM  ELEMENT  OF  A  REAL  VECTOR. 
C 

c 

0======================================================================= 

DOUBLE  PRECISION  X ( 1 ) , XMIN 
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INTEGER  ISMIN,N,It;:,  I 

ISMIN=1 
XMIN=X(1) 

DO  10  1=2, N, INC 

iF(x(i) .lt.xmin:  then 

ISMIN=I 
XMIN=X(I) 
ENDIF 
10      CONTINUE 

RETURN 

KNPC* ******************************************************************** 

C 

c 

FUNCTION  ISRCHIG(N, lARRAY, INC, ITARGET) 

c 

c 

p*************************' ****************************** 

c 
c 

C      FUNCTION  TO  RETURN  ir.DEX  OF  FIRST  ELEMENT  OF  lARRAY  GREATER 
C      THAN  ITARGET,  OR  N+1  IF  NONE  IS  FOUND. 

c 
c 

0======================================================================= 


INTEGER  ISRCHICN,  lARRAY(l)  ,  INC  ,  ITARGET,  I 
ISRCHIG=N+1 

DO  10  1  =  1,  N,  INC 

IF (IARRAY{ I) .GT. ITARGET)  THEN 

ISRCHIG=I 

RETURN 
ENDIF 
10      CONTINUE 

RETURN 
END 

p********************************************************************* 

C 

FUNCTION  RAN3(IDUM) 
C 
c 

c 

C      Returns  a  uniform  random  deviate  between  0.0  and  1.0.   Set  IDUM 
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C     to  any  negative  value  to  initialize  or  reinitialize  the  sequence. 

C     If  running  on  machine  that  is  weak  on  integer  arithmatic,  then  use 

C     commented  lines.   Any  other  large  value  of  MBIG  and  MSEED  will 

C     work.   This  routine  is  originally  from  Knuth,  but  the  current 

C     version  is  from  Numerical  Recipes  by  Press  et  al . 

C 

0==================================================================== 

IMPLICIT  NONE 

DOUBLE  PRECISION   FAC,RAN3 

INTEGER   MBIG , MSEED , I FF , IDUM , M J , MA ( 5  5 )  , MK , 1 1 , MZ , K , I , 
&    INEXT , INEXTP 

PARAMETER  (MBIG=1000000000 , MSEED=1618033  98 , MZ=0 , FAC=1 . /MBIG) 

SAVE  IFF,MA,MZ, INEXT, INEXTP 

DATA  IFF/0/ 

IF ( IDUM . LT . 0 . OR . IFF . EC . 0 ) THEN 
IFF=1 

MJ=MSEED-IABS (IDUM) 
MJ=MOD(MJ,MBIG) 
MA(55)=MJ 
MK=1 
DO  1=1,64 

II=MOD{21*I,55) 
MA(II)=MK 
MK=MJ-MK 

IF(MK.LT.MZ)  MK=MK+MBIG 
MJ=MA(II) 
ENDDO 
DO  K=l,4 

DO  1=1,55 

MA(I)=MA(I)-MA(1+MOD(I+30, 55) ) 
IF(MA(I) .LT.MZ)  MA ( I) =MA ( I ) +MBIG 
ENDDO 
ENDDO 
INEXT=0 
INEXTP=31 
IDUM=1 
ENDIF 

INEXT=INEXT+1 
IF ( INEXT. EQ. 56)  INEXT=1 
INEXTP=INEXTP+1 
IF(INEXTP.EQ.56)  INEXTP=1 
MJ=MA ( INEXT) -MA ( INEXTP ) 
IF (MJ. LT.MZ)  MJ=MJ+MBIG 
MA{INEXT)=MJ 
RAN3=MJ*FAC 
RETURN 
END 


J  f 
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c 
c 

SUBROUTINE    LINK (DUMMESS) 
C 

c 

c 
c 

C  DUMMY    SUBROUTINE   TO    HANDLE    CALL    TO    CRAY    LINKER. 

C 

c 
c======================================================================= 

CHARACTER* ( * )     DUMMESS 

RETURN 
END 

Q*  *********  ie  ****************  ic  -k  *******  -k  -k  *******  -k  ****************  ie  -k  -k  *****  * 

c 
c 

SUBROUTINE    PKSRT (N, ARR, INDX) 
C 

c 
c 

C  SUBROUTINE   TO    SORT   ARRAY   ARR   AND   OUTPUT   THE   ARRAY    OF    INDICES 

C  INDX    IN  ASCENDING   ORDER.       ADDAPTED   FROM   ROUTINE    IN  NUMERICAL 

C  RECIPES. 
C 

c====================================================================== 

INTEGER      I, J, INDX, N 
DOUBLE    PRECISION      ARR, A 
DIMENSION    INDX(N) ,ARR(N) 
DO    1=1, N 

INDX(I)=I 
ENDDO 
DO   J=2,N 
A=ARR(J) 
DO    I=J-1,1,-1 

IF(ARR(INDX{I) ) .LE.A)     GOTO    10 
INDX{I+1)=INDX(I) 
ENDDO 
1  =  0 
10  INDX(I+1)=J 

ENDDO 
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RETURN 
END 

Q-k  *********************************************************************  * 

c 
c 

SUBROUTINE  NPKSRT (N, ARR, INDX) 
C 

c 
c 

C        SUBROUTINE  TO  SORT  ARRAY  ARR  AND  OUTPUT  THE  ARRAY  OF  INDICES 
C        INDX  IN  ASCENDING  ORDER.   ADDAPTED  FROM  ROUTINE  IN  NUMERICAL 
C        RECIPES . 
C 
0====================================================================== 

INTEGER   I, J, INDX, N, ARR, A 
DIMENSION  INDX (N) , ARR (N) 
DO  1=1, N 

INDX{I)=I 
ENDDO 
DO  J=2,N 
A=ARR(J) 
DO  I=J-1,1,-1 

IF(ARR(INDX(I) ) -LE.A)  GOTO  10 
INDX(I+1)=INDX(I) 
ENDDO 
1=0 
10      INDX(I+1)=J 
ENDDO 

RETURN 
END 

Q*  ******************************************************************  * 

c 
c 

SUBROUTINE  WHENEQ ( N , I ARRAY , INC , ITARGET , INDEX , NVAL ) 
C 

c 

c 
c 

C      SUBROUTINE  TO  RETURN  LOCATIONS  OF  ALL  ELEMENTS  OF  AN  INTEGER 

C      VECTOR  EQUAL  TO  ITARGET. 

C 

c 

c======================================================================= 

INTEGER  lARRAY ( 1 ) , INDEX ( 1 ) , N , INC , ITARGET , NVAL , I 
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NVAL=0 

DO  10  1=1, N, INC 

IF ( lARRAY ( I ) . EQ . ITARGET )  THEN 
NVAL=NVAL+1 
INDEX(NVAL)=I 
ENDIF 
10      CONTINUE 

RETURN 
END 

p*********************************************************************** 
C 

c 

SUBROUTINE  WHENFGT ( N , ARRAY , INC , TARGET , INDEX , NVAL ) 
C 
C 

Q*  *********************************************************************  * 

C 

c 

C      SUBROUTINE  TO  RETURN  LOCATIONS  OF  ALL  ELEMENTS  OF  A  REAL 
C      VECTOR  GREATER  THAN  TARGET. 

c 

c 

0======================================================================= 

DOUBLE  PRECISION  ARRAY ( 1 ), TARGET 
INTEGER  INDEX ( 1 ) , N , INC , NVAL , I 

NVAL=0 

DO  10  1=1, N, INC 

IF (ARRAY ( I) .GT. TARGET)  THEN 
NVAL=NVAL+1 
INDEX (NVAL) =1 
ENDIF 
10      CONTINUE 

RETURN 
END 

Q*  *********************************************************************  * 

C 

c 

SUBROUTINE  WHENFLT (N, ARRAY, INC, TARGET, INDEX, NVAL) 
C 

c 
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Q************************«********************************************** 

c 
c 

C      SUBROUTINE  TO  RETURN  LOCATIONS  OF  ALL  ELEMENTS  OF  A  REAL 

C      VECTOR  LESS  THAN  TARGET. 

C 

c 

0======================================================================= 

DOUBLE  PRECISION  ARRAY ( 1) , TARGET 
INTEGER  INDEX(l) ,N,INC,NVAL,I 

NVAL=0 

DO  10  1=1, N, INC 

IF(ARRAY(I) .LT. TARGET)  THEN 
NVAL=NVAL+1 
INDEX (NVAL)=I 
ENDIF 
10      CONTINUE 

RETURN 
END 

Q*********************************************************************** 
C 

c 

SUBROUTINE  WHENIEQ (N, lARRAY, INC , ITARGET, INDEX, NVAL) 
C 

c 

C 

c 

C      SUBROUTINE  TO  RETURN  LOCATIONS  OF  ALL  ELEMENTS  OF  AN  INTEGER 

C      VECTOR  GREATER  THAN  ITARGET. 

C 

c 

0======================================================================= 

INTEGER  lARRAY(l) ,INDEX(1) , N , INC , ITARGET , NVAL , I 

NVAL=0 

DO  10  1=1, N, INC 

IF ( lARRAY ( I ) . EQ . ITARGET)  THEN 

NVAL=NVAL+1 

INDEX (NVAL) = I 
ENDIF 
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10      CONTINUE 

RETURN 
END 

c 
c 

SUBROUTINE  WHENIGE (N, lARRAY, INC, ITARGET, INDEX, NVAL) 
C 
C 

Q*  *********************************************************************  * 

c 
c 

C      SUBROUTINE  TO  RETURN  LOCATIONS  OF  ALL  ELEMENTS  OF  AN  INTEGER 

C      VECTOR  GREATER  THAN  ITARGET. 

C 

c 

0======================================================================= 

INTEGER  lARRAY ( 1) , INDEX { 1 ) , N , INC , ITARGET , NVAL , I 

NVAL=0 

DO  10  1=1, N, INC 

IF ( lARRAY ( I ) . GE . ITARGET )  THEN 
NVAL=NVAL+1 
INDEX (NVAL) =1 
ENDIF 
10      CONTINUE 

RETURN 
END 

Q*  *********************************************************************  * 

c 
c 

SUBROUTINE  WHENIGT (N, I ARRAY, INC, ITARGET, INDEX, NVAL) 
C 
C 

Q*********************************************************************** 

c 
c 

C      SUBROUTINE  TO  RETURN  LOCATIONS  OF  ALL  ELEMENTS  OF  AN  INTEGER 

C      VECTOR  GREATER  THAN  ITARGET. 

C 

C 

c======================================================================= 
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INTEGER  lARRAY ( 1 ) , INDEX ( 1 ) , N , INC , ITARGET , NVAL , I 

NVAL=0 

DO  10  1=1, N, INC 

IF (I ARRAY ( I) .GT. ITARGET)  THEN 
NVAL=NVAL+1 
INDEX (NVAL) = I 
ENDIF 
10      CONTINUE 

RETURN 
END 

n*  *********************************************************************  * 

c 
c 

SUBROUTINE  WHENILE (N, lARRAY, INC, ITARGET, INDEX, NVAL) 
C 
C 

Q*  *********************************************************************  * 

c 
c 

C      SUBROUTINE  TO  RETURN  LOCATIONS  OF  ALL  ELEMENTS  OF  AN  INTEGER 

C      VECTOR  LESS  THAN  OR  EQUAL  TO  ITARGET. 

C 

c 

0======================================================================= 

INTEGER  I ARRAY ( 1 ) , INDEX ( 1 ) , N , INC , ITARGET , NVAL , I 

NVAL=0 

DO  10  1=1, N, INC 

IF ( lARRAY ( I ) . LE . ITARGET)  THEN 
NVAL=NVAL+1 
INDEX ( NVAL )=I 
ENDIF 
10      CONTINUE 

RETURN 
END 

Q*  *********************************************************************  * 

c 
c 

SUBROUTINE  WHENILT (N, lARRAY, INC, ITARGET, INDEX, NVAL) 
C 


''^n  - 
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c 

c 
c 

C      SUBROUTINE  TO  RETURN  LOCATIONS  OF  ALL  ELEMENTS  OF  AN  INTEGER 

C      VECTOR  LESS  THAN  ITARGET . 

C. 

C 

c======================================================================= 

INTEGER  lARRAYd)  ,  INDEX  ( 1)  ,N,INC,  ITARGET, NVAL,  I 

NVAL=0 

DO  10  1=1, N, INC 

IF (IARRAY( I) .LT. ITARGET)  THEN 
NVAL=NVAL+1 
INDEX { NVAL )=I 
ENDIF 
10      CONTINUE 

RETURN 
END 

Q* ************************************************************  ********** 

c 
c 

SUBROUTINE  WHENNE ( N , lARRAY , INC , ITARGET , INDEX , NVAL ) 
C 

c 

Qir  ****************************************************  it  ****************  * 

c 
c 

C      SUBROUTINE  TO  RETURN  LOCATIONS  OF  ALL  ELEMENTS  OF  AN  INTEGER 

C      VECTOR  NOT  EQUAL  TO  ITARGET. 

C 

c 

0======================================================================= 

INTEGER  lARRAY ( 1 ) , INDEX ( 1 ) , N , INC , ITARGET , NVAL , I 

NVAL=0 

DO  10  1=1, N, INC 

IF ( lARRAY ( I ) . NE . ITARGET )  THEN 

NVAL=NVAL+1 

INDEX (NVAL )=I 
ENDIF 
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10  CONTINUE 

RETURN 
END 
©PROCESS    DC(BODYCEL,CONCOM,GAS) 

n  *********  it  ****************  -k  -k  -k  -k  ************  ie  *  *  it  -k  *  -k  ******  -k  *  *  *  ir  *  -k  *  *  *  -k  *  * 

C 

SUBROUTINE   OUTDISP(N) 
C 
C 

c 

C  SUBROUTINE   TO   OUTPUT   THE    POSITIONS   OF   THE   PARTICLES   AT   EVERY 

C  QUARTER   TURN    (TD) ,    AS   WELL    AS    THE   VELOCITY   DISPERSION   AND 

C  AVERAGE    ROTATIONAL   AND    RADIAL    VELOCITIES    AT   ONE    KPC    INTERVALS. 

C  THIS    SUBROUTINE   ALSO    CALCULATES    THE   MASSFRACTION   AND 

C  NUMBER   DENSITY   AT   ONE    KPC    INTERVALS. 

C  R.    DRIMMEL    '91 

C 

0==================================================================== 

/♦INCLUDE   NEWHEAD    FORTRAN   A 

C 

C  LOCAL   VARIABLES 

C 

c 

DOUBLE    PRECISION      VT, VR, R, VRAV( 50 ) , VTAV ( 50) , SR (50) , ST ( 50) , 
&  SINA,COSA,MFRC, AREA, RAD, MAS SP,DX,DY,RDEN, 

Sc  AM(50)  ,VX,VY,MDEN(50)  ,SUMNR,SW(50) 

INTEGER      I, J,P,NDIMO,NR(50) ,N,M 

PI=4 . 0D0*DATAN ( 1 . ODO ) 

NDIMO=NDIM 

DO   J=l,50 

VTAV{J)=0. 

VRAV{J)=0. 

SR(J)=0. 

ST(J)=0. 

AM(J)=0. 

MDEN(J)=0. 

NR(J)=0 

SW(J)=0. 
ENDDO 

DO    I=1+NMP,NGP-NAGP 
P=BODLIST(I) 
DX=POS ( P, 1) -CMPOS ( 1 ) 


.  e  -^' 
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DY=POS(P,2)-CMPOS(2) 
R=DSQRT (DX*DX+DY*DY) 
M=INT(R/ANW) +1 
IF(M.LE.50)  THEN 

RDEN=R*RH(P) 

VX=VEL(P, 1) -CMVEL(l) 

VY=VEL ( P , 2 ) -CMVEL ( 2 ) 

COSA=DX/R 

SINA=DY/R 

VT=VY*COSA  -  VX*SINA 

VR=VY*SINA  +  VX*COSA 

NR(M)=NR(M)  +  1 

VRAV { M ) =VRAV ( M ) + VR/ RDEN 

VTAV(M)=VTAV(M) +VT/RDEN 

SR (M) =SR(M) +VR*VR/RDEN 

ST(M)=ST(M)+VT*VT/RDEN 

AM(M)=AM(M)+R*VT*MASS(P) 

MDEN(M)=MDEN(M)+MASS(P) 

SW(M) =SW{M) +1.D0/RDEN 
ENDIF 
ENDDO 

SUMNR=0 

WRITE (16,*)  TNOW 

DO  J=l,50 

RAD=J*ANW 

IF(NR(J) .NE.O)  THEN 

VTAV(J)=VTAV(J) /SW(J) 
VRAV(J)=VRAV(J) /SW(J) 
SR(J)=SR(J) /SW(J)-  VRAV(J) *VRAV(J) 
ST(J)=ST(J) /SW(J) -  VTAV{J) *VTAV(J) 
ENDIF 

WRITE (16, 10)  VTAV(J) , VRAV (J) , ST ( J) , SR( J) , (RAD-0 . 5*ANW) ,AM(J) 
ENDDO 

IF (N. NE.O)  THEN 

WRITE (17,*)  TNOW 

WRITE (17, 20)  O.DO, O.DO,O.DO,LT(0) ,0 

LT(0)=O.DO 

DO  J=l,50 

RAD=J*ANW 

AREA=PI* (2 .ODO*RAD  -  ANW) *ANW 

SUMNR=  SUMNR+MDEN ( J ) 

MFRC=SUMNR/MTOT 

MDEN(J)=MDEN(J) /AREA 

WRITE(17,20)  MFRC,MDEN(J) ,RAD,LT(J) ,NR(J) 

LT(J)=0. 
ENDDO 
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ENDIF 

10      F0RMAT(1X,D14.7,1X,3 (D12.5,1X) , F7 . 3 , IX, D14 . 8 ) 

2  0      FORMAT(lX,G12.5,2X,G16.9,2X,F7.3,2X,G16.9,2X,I5) 

RETURN 
END 
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p********************************************************************* 

c 
c 

C      THIS  IS  THE  HEADER  FOR  ALL  SUBROUTINES  IN  T2DSPH. 
C 

c 

0===================================================================== 

CHARACTER* 50  HEADLIN 

CHARACTER'S  SOFT 

DOUBLE  PRECISION  MASS , TOL, T0L2INV, EPS , RSIZE, RBMIN, PHI , POS, VEL, 
&  ACC , QUAD, TNOW, TPOS, DTIME, DTIME2 , TINY, ONE, TWO, 

5c  CPUTO  ,  CPUTl ,  CPUTIME ,  TD,  TDUMP,  ZERO ,  CELLSIZ  , 

&  MTOT , ETOT , EKTOT , E  PTOT , UTOT , MINUST , CMPOS , CMVEL , 

Sc  PHSM00T,ACSM00T,CN,PI,MASS1,LT,ANW,VET,AMVEC, 

&  TELAPS , DTS , DT , DVEL , SOF , ZETA , QTOT , Q , RMIN , RMAX 

INTEGER  ROOT, SUBP , NBODIES , INCELLS , NTTOT,NTMIN, NTMAX, NTAVG, 
&  NSTEPS , NOUTBOD , NOUTLOG , NDIM , NSUBCEL , NBODSMA , NCELLS , 

&  NBODCEL , NBODS 1 , NBODLIS , NINTERP , VTYP , IDUM , MINDX , NGPTS , 

&  NADVLIS , NNBSLIS , TSTEP , BNOW, NMAX , TBIN, NCMAX , NGAS 

LOGICAL  USEQUAD,REBOX 

PARAMETER (NDIM=2 , NSUBCEL=2 **NDIM, NBINMAX=10 ) 
PARAMETER (NBODSMA=110  00,NCELLS=20 000, NGPTS=50) 
PARAMETER (NBODCEL=NBODSMA+NCELLS , NB0DS1=NB0DSMA+1) 
PARAMETER ( NINTERP=2  0  0  0 ) 

COMMON/ PARAMCO/TOL , T0L2 INV, EPS , CN, ANW, SOF , ZETA, NBODIES , NBODLIS , 
&  NADVLIS , NGAS , NNBSLIS , REBOX , USEQUAD 

COMMON/MSGCOM/HEADLIN, SOFT 

COMMON/CELLCOM/RSIZE,RBMIN(NDIM) , CMPOS (NDIM) , CMVEL (NDIM) , 
&  AMVEC ( 3 ) , INCELLS 

COMMON/ POINTER/ROOT, SUBP (NBODSl : NBODCEL, 1 :NSUBCEL) 
COMMON/ BODYCEL /MASS (1: NBODCEL) , PHI (1 : NBODSMA) , Q ( 1 : NBODSMA) , 
&  POS(0:NBODCEL, 1:NDIM) , CELLSIZ ( 1 :NBODCEL) , 

&  VEL(1:NB0DSMA,1:NDIM) , ACC { 1 :NBODSMA, 1 :NDIM) , 

&  VET (1: NBODSMA, 1: NDIM) , DVEL (1 : NBODSMA, 1 : NDIM) , 

&  DT (1 : NBODSMA ) , TB IN ( NBODSMA ) , MINDX ( NBODSMA ) 

COMMON/ QUADCOM/ QUAD (NBODSl :NBODCEL, 1 : 2*NDIM-1) 
COMMON/ FORCECO/NTTOT , NTMIN , NTMAX , NTAVG , NMAX , NCMAX 
COMMON/ TIMECOM/ TD , TDUMP , TNOW , TPOS , DTIME , DTIME2 , DTS , TELAPS , 
&  RMIN ( 0 :NBINMAX) , RMAX (0:NBINMAX) , 

&  NSTEPS , NOUTBOD, NOUTLOG, TSTEP, BNOW 

COMMON/CPUCOM/CPUTO , CPUTl , CPUTIME 

COMMON/MISCCOM/TINY , ZERO , ONE , TWO , MINUST , PI , MASSl , IDUM 
COMMON/ ENRGYCO/ MTOT , ETOT , EKTOT , EPTOT , UTOT , QTOT , LT ( 0 : 5  0 ) 
COMMON/ GRAVCOM/PHSMOOT ( 0 : 1+NINTERP) , ACSMOOT ( 0 : 1+NINTERP) 
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C    DEFINITIONS  SPECIFIC  TO  INPUT/OUTPUT. 

0====================================================================^ 

INTEGER  UTERM , UPARS , ULOG , UBODS IN , UBODSOU , UBODSAS 
CHARACTER*  8  PARSFIL , LOGFILE , IBODFIL , OBODFIL , OASCFIL 

PARAMETER (UTERM= 6 , UPARS=10 , UL0G=11 , UB0DSIN=12 , UB0DS0U=13 , 
&  UB0DSAS=14) 

PARAMETER {PARSFIL='TREEPAR' , LOGFILE= ' TREELOG' , 
&  IBODFIL= ' TREEBI ' , OBODFIL= ' TREEBO ' , 

&  OASCFIL='TREEBOA' ) 

C====================================================================: 

C    DEFINITIONS  SPECIFIC  TO  VECTORIZED  TREE  CONSTRUCTION,  VECTORIZED 
C    AND  TREE  WALK. 
C====================================================================: 

DOUBLE  PRECISION  WORKVEC 

INTEGER  SUBINDE,ACTLIST,BODLIST,TEMPLIS, PARENT, ASUBP, CELLIST, 
&  SUBPVEC(NSUBCEL*NCELLS) , ISUBSET, NWORKVE, ADVLIST, 

&  NBSLIST 

PARAMETER ( NWORKVE= 15  0  00) 

EQUIVALENCE  (SUBPVEC (1) , SUBP(NB0DS1, 1) ) 

COMMON/CONCOM/CELLIST(NCELLS) , PARENT (NBODSMA) , ASUBP (NBODSMA) , 
&  TEMPLIS (NBODSMA) , ACTL I ST (NBODSMA) , BODLIST (NBODSMA) , 

&  NBSLIST (NBODSMA) , ADVLIST (NBODSMA) , 

&  ISUBSET (NBODSMA) , SUB INDE (NBODSMA) 

COMMON/WORKCOM/ WORKVEC (NWORKVE) 
C 
C====================================================================: 

C        DEFINITIONS  SPECIFIC  TO  GASEOUS  PARTICLES 
C=================================================================== 

INTEGER  NGPMAX ,  NNBMA.X ,  NSTMAX ,  NNBS  ,  LIST ,  NOP ,  SLIST ,  INDL ,  NNB 

PARAMETER (NGPMAX=110  00 , NNBMAX=24 , NSTMAX=200) 

DOUBLE  PRECISION  RH, VS2 , GAMMA, H, VW3 , VDIVW3 , ALFA, BHTA, 
&  CI ,  C2  ,  HR".X ,  GMONE ,  GMTWO  ,  C ,  F ,  DELV,  RHS ,  DRHDT , 

&  NU,AVM, ISS,GRADV,UDOT,U 

LOGICAL  SWITCH 

COMMON /GAS PAR /VS 2 , GAMMA, GMONE, GMTWO, ALFA, BHTA, NU, CI , C2 , ISS, 
&  HMAX, NOP, SWITCH 

COMMON/GAS/  RH(NGPMAX) , VW3 {2+NINTERP) , VDIVW3 (2+NINTERP) , 
&  RHS (NGPMAX) , DRHDT (NGPMAX) ,AVM (NGPMAX) ,H (NGPMAX) , 

&  C (NGPMAX) ,F (NGPMAX) , DELV(NGPMAX) ,U(NGPMAX) , 

&  GRADV( NGPMAX, 4) ,UDOT( NGPMAX) , 

&  SLIST ( 5 'NNBMAX/2, NGPMAX) , INDL ( NGPMAX ) , NNB (NGPMAX) 

&  LIST ( 2 *MNBMAX, NGPMAX) , NNBS (NGPMAX) 

C====================================================================: 

C 


i 


261 


C  DEFINITIONS    SPECIFIC    70    ACCRETION 

C 

DOUBLE    PRECISION   TAM ,  ~.-_AM ,  TAEK ,  TAE ,  ARAD ,  MDOT 
INTEGER      NMP , NAGP , NACC , ACCLIST , NCP 
COMMON/ ACC PAR/    TAM ,  TAP.M  (  3  )  ,  TAEK ,  TAE ,  ARAD , 
&  MOOT , NACC , NAGP , NCP , NMP , ACCLIST (1000 ) 


APPENDIX  B 
Algorithm  for  T2DSPH 

The  table  on  the  following  page  contains  the  list  of  subroutines  called  by  the  main 
program,  or  by  three  main  subroutines  listed  at  the  top  of  the  table. 


MAIN 

INITSYS 

STEPSYS 

HALFSTP 

INITSYS 

SECONDS 

If(telapse7^0) 

CORRVEL 

If(N<NSTEPS) 

STARTOU 

HALFSTEP 

ZFROACC 

STEPSYS 

INPARAM 

else 

GRAVITY 

If(N7^N0LD) 

INBODS 

ESTVEL 

MAKESAP 

OUTSTAT 

INITPAR 

STEPPOS 

MAKELIS 

ENDDO 

INITSOF 

endif 

DENSITY 

ENDRUN 

ZEROACC 

Build  ADVLIST 

HYDRO 

ZEROPOT 

HALFSTP 

HAD  JUST 

ACCRET(O) 

AMFLUX 

STEPVEL 

Initialize: 

ACCRET 

STEPPOS 

ADVLIST 

COURANT(N) 

ESTVEL 

NBSLIST 

lf(telapse=0) 

GRAVITY 

GRIDEN 

INITLIS 

DENSITY 

HYDRO 

COURANT(N) 

GRIDEN 

OUTSTAT(O) 

Do  first  step: 

STEPSYS 
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APPENDIX  C 
PROGRAM  EXPD 


PROGRAM  EXPD 
C 

C     This  program  builds  an  exponential  disk  from  concentric 
C     rings.  The  disk  is  built  from  the  center  outwards  by 
C     making  the  distance  between  particles  in  a  ring  approx. 
C     equal  to  the  distance  from  the  previous  ring.  This  version 
C     adds  a  perturbation  to  the  density  by  displacing  the  particle 
C     positions,  and  care  is  taken  to  remove  the  perturbation  in 
C     the  velocities. 
C 
0=============================================================== 

IMPLICIT  NONE 

INTEGER  I , J , NR , NRMAX , NUM , NBODMAX , NINTERP , SMINDX , FLAG2 , INRNG , 
&    NACP,IDUM 
PARAMETER (NRMAX=3 00 , NB0DMAX=2 5000 , NINTERP=2000 ) 
INTEGER  N( NRMAX) ,NTOT, FLAG, NRAD, ERROR, NRNG, NP, PNP, NMP 
DOUBLE  PRECISION  R  (NRM^^X)  ,  THETA,  DTH,  XO  ,  YO  ,  PI ,  DX,  DY,  GAMMA, 
&    MD , RD , MC , RS , MASSP , RP , RAD , NO , DS , ADS , LADS , PRP , EPS , VDIVR , DR , 
&    TINY, VX (NBODMAX)  ,  \A' (NBODMAX)  ,V02 (NRMAX)  , ACC ( NBODMAX , 2 ) , 
&    X (NBODMAX) ,Y (NBODMAX) ,H (NBODMAX) , MASS (NBODMAX) , DEN (NRMAX) , 
&    V2 (NRMAX) ,MT0T,QM1N,VRDR,VR,VT,U( NBODMAX) , GMONE , DENJ , HP , 
&    ACSMOOT(0:NINTERP+1) , XW,XW2 , XW3 , XW4 , DELDRG, DENO , ISS, ARAD, 
&    DRl , VT2 , VTl , R2 , Rl , VTO , RO , DRO , DR2 , DXO , DXl , DX2 , ALFA, ALFP, AMP 
C 

C   VARIABLES  FOR  SELF  GRAVITY  ONLY: 
C 


DOUBLE  PRECISION  MASSl , ACCSM, DACCX, R3INV, DACCY, RNIN, ACCX, ACCY, 
&    DRSM,RINV 
C 

C   VARIABLES  FOR  PRESSURE  SUPPORT: 
C 


DOUBLE  PRECISION  Q (NRMAIO  , K2DMIN, KAPPA2 (NRMAX)  , DV2DR, MINQ 

CHARACTER*!  QUERY 
COMMON/DISK/  RD, RS , NO , PI , NTOT 

OPEN (UNIT=10,FILE='expd. out' , STATUS =' UNKNOWN' ) 
OPEN (UNIT=2  0,FILE=' expvel.dat' , STATUS = 'UNKNOWN' ) 
OPEN(UNIT=3  0,FILE='expq.dat' , STATUS =' UNKNOWN' ) 
OPEN (UNIT=40 , FILE= ' exppar . dat ' , STATUS= ' UNKNOWN' ) 
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WRITE (6,*)  'INPUT  THE  MASS  OF  THE  DISK:' 

READ ( 5 , * )  MD 

WRITE (6,*)  ' 

WRITE (6,*)  'INPUT  THE  MASS  OF  THE  CENTRAL  OBJECT:' 

READ { 5 , * )  MC 

WRITE (6,*)  ' 
C       WRITE ( 6 , * )  ' INPUT  THE  SCALE  LENGTH : ' 
C       READ ( 5 , * )  RS 
C       WRITE ( 6 , * )  ' 

C       WRITE (6,*)  'INPUT  THE  RADIUS  OF  THE  DISK:' 
C       READ ( 5 , * )  RD 
C       WRITE (6,*)  ' 

WRITE (6,*)  'INPUT  THE  RATIO  OF  SPECIFIC  HEATS.' 

READ ( 5 , * )  GAMMA 

IDUM=-1 

MTOT=MD+MC 

RD=1.D0 

RS=0.25D0 

NMP=1 

NACP=:0 

GM0NE=GAMMA-1 . DO 

ERROR=0 

ALFA=O.DO 

C       WRITE (6,*)  'WHAT  IS  THE  VISCOUS  PARAMETER  ALFA?' 
C       READ ( 5 , * )  ALFA 

WRITE ( 6 , * )  ' INPUT  THE  PERTURBATION  AMPLITUDE . ' 

READ  ( 5 , * )  AMP 

WRITE (6,*)  'AT  WHAT  RADIUS  DO  YOU  WISH  TO  HAVE  ARAD? ' 

READ ( 5 , * )  ARAD 

WRITE (6,*)  ' 

WRITE (6,*)  'WHAT  IS  THE  DESIRED  GRAVITATIONAL  SMOOTHING  LENGTH?' 

READ ( 5 , * )  EPS 

WRITE ( 6 , * )  ' 

WRITE (6,*)  'DO  YOU  WISH  TO  INPUT  THE  MINIMUM  Q  VALUE?  (Y/N) ' 

READ ( 5 , * )  QUERY 

IF (QUERY. EQ. 'Y' . OR . QUERY . EQ . 'y' )  THEN 

WRITE (6,*)  ' 

WRITE ( 6 , * )  ' INPUT  QMIN : ' 

READ ( 5 , * )  QMIN 

QUERY='Y' 
ELSE 

WRITE ( 6 , * )  ' 

WRITE (6,*)  'INPUT  THE  ISOTHERMAL  SOUND  SPEED:' 

READ (5,*)  ISS 

QUERY='N' 
ENDIF 
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WRITE(40,*)  '********    EXPONENTIAL  DISK    *************- 
WRITE (40,*)  ' 
WRITE (40,*)  ' 
WRITE(40,100)  MC,MD,RD,RS 
WRITE (40,*)  ' 
100   FORMATdX,'    MC  =  '  ,  D12  .  5  ,  3X,  '  MD=  '  ,  D12  .  5  ,  3X,  '  RD=  ',D12.5, 

&   3X, 'RS=  ' ,D12.5) 
200   FORMATdX,'    GAMMA=  '  ,  D12  .  4  ,  3X,  '  QMIN=  '  ,  D12  .  5  ,  3X,  '  EPS=  ',D12.5) 
3  00   FORMATdX,'    GAMMA=  '  ,  D12  .  4  ,  3X,  '  ISS=  '  ,  D12  .  5  ,  3X,  '  EPS=  '  ,  D12  .  5  ) 
C 
C  INITIALIZE  VARIABLES  AND  SMOOTHED  ACCELERATION  TABLE 

C 

DELDRG=2 . /NINTERP 
DO  1=0, NINTERP/ 2 
XW=I*DELDRG 
XW2=XW*XW 
XW3=XW2*XW 

ACSMOOT ( I ) =XW3 * (4 . /3 . -6 . *XW2 /5 . +0 . 5*XW3 ) 
ENDDO 

DO  I =NINTERP/ 2+1, NINTERP 
XW=I*DELDRG 
XW2=XW*XW 
XW3=XW2*XW 
XW4=XW2*XW2 

ACSMOOT (I)=-l./15.+8. *XW3  73.-3. *XW4  +  6 . *XW3  *XW2 / 5 . -XW4*XW2 / 6 . 
ENDDO 
ACSMOOT (I) =1.D0 

WRITE (6,*)  'INPUT  THE  TOTAL  NUMBER  OF  PARTICLES  YOU  DESIRE:' 
READ ( 5 , * )  NTOT 

PI=4.D0*DATAN(1.D0) 
TINY=l.D-20 
DO  I=1,NRMAX 
N(I)=0 
R(I)=0.D0 
V02(I)=0.D0 
ENDDO 

DO  I=1,NB0DMAX 
ACC(I,1)=0.D0 
ACC(I,2)=0.D0 
ENDDO 
C 

C   FIND  THE  RADIUS  OF  THE  INNER  DISK 
C 


FLAG2=0 
15    NR=7-NMP 

THETA=0.D0 


T  V 
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N0=DFLOAT{NTOT) / (2 . DO*PI*RS*RS* ( 1 . DO-DEXP ( -RD/RS) * (RD/RS+1 .DO ) ) ) 

DEN0=N0*MD/DFLOAT(NTOT) 

RAD=0.01D0 

CALL  FINDR(NR, RAD, ERROR) 

IF ( ERROR. NE.O)  THEN 

WRITE (6,*)  'ERROR', I 

GOTO  99 
ENDIF 
IF(NMP.EQ.l)  THEN 

1  =  1 

N(I)=6 

R(I)=DSQRT(0.5D0) *RAD 
ELSE 

N(l)=l 

R(1)=0.D0 

N(2)=6 

R ( I ) =DSQRT ( 5 . DO / 8 . DO ) *RAD 
ENDIF 


C 

C   BUILD  REMAINING  DISK 

C 

DOWHILE (NR . LT . NTOT . AND . I . LT . 199 ) 
1  =  1  +  1 

NP=N(I-1) *8/10 
NRAD=NR+NP 

CALL  FINDR(NRAD, RAD, ERROR) 
IF(ERROR.NE.O)  THEN 

WRITE(6,*)  'ERROR' 

GOTO  99 
ENDIF 

RP=DSQRT(0.5D0*(RAD**2+R(I-1) **2) ) 
DS=RP-R(I-l)-2.D0*PI*RP/DFLOAT(NP) 
ADS=DABS(DS) 
NP=NP+1 
LADS = ADS +1. DO 
FLAG=0 
DOWHILE ( LADS . GT . ADS . AND . FLAG . LT . 1 0 0 ) 

FLAG=FLAG+1 

LADS = ADS 

PRP=RP 

PNP=NP 

NRAD=NR+NP 

CALL  FINDR(NRAD, RAD, ERROR) 

IF (ERROR. NE.O)  THEN 
WRITE (6,*)  'ERROR' 
GOTO  99 
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END  IF 

RP=DSQRT(0.5D0* (RAD**2+R ( I-l ) **2) ) 
DS=RP-R(I-1) -2 .D0*PI*RP/DFLOAT(NP) 
IF(DS.LT.O.DO)  THEN 

NP=NP+1 
ELSE 

NP=NP-1 
ENDIF 

ADS=DABS(DS) 
ENDDO 
N(I)=PNP 
R(I)=PRP 
NR=NR+N(I) 
ENDDO 

WRITE ( 6 , * )  ' NR= ' , NR 
IF(FLAG2.GT.20)  THEN 

WRITE (6,*)  'CANNOT  FIND  INTEGER  NUMBER  OF  PARTICLES  FOR  DISK. 
GOTO  99 
ENDIF 

IF(NR.NE.NTOT)  THEN 
NTOT=NR 
FLAG2=FLAG2+1 
GOTO  15 
ENDIF 
NRNG=I 
NTOT=NR+NMP 
IF (I. GT. 199)  THEN 

WRITE (6,*)  'NUMBER  OF  RINGS  IS  GREATER  THAN  199' 
WRITE(6,*)  FLAG,N(I-1) ,N(I) ,R(I) 
GOTO  25 
ENDIF 
WRITE { 6 , * )  ' NTOT= ' , NTOT 

DO  I=1,NRNG 

DEN{I)=DENO*DEXP{-R(I) /RS) 
IF(R(I) .GT.ARAD.AND.R(I-l) .LT.ARAD)  THEN 
ARAD=(R(I)+R(I-1) ) *0.5D0 
INRNG=I 
ENDIF 
ENDDO 

EPS=ARAD*0.5D0 
IF{QUERY.EQ. 'Y' )  THEN 

WRITE(40,200)  GAMMA, QMIN, EPS 
ELSE 

WRITE(40,300)  GAMMA, ISS , EPS 
ENDIF 
WRITE (40,*)  ' 


WRITE (40, * 
WRITE (40, * 
WRITE (40, * 
WRITE (40, * 
WRITE (40,* 
WRITE (40, * 
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ALFA= ' , ALFA , '  ARAD= ' , ARAD 
NTOT=  '  ,  NTOT ,  '  NFING=  '  ,  NRNG 
NO=',NO,'    DENO=',DENO 


C 

C   CALCULATE  X  AND  Y  COORDINATE  OF  EACH  PARTICLE 

C 

MASSP=MD/DFLOAT (NR) 

X(1)=0.D0 

Y(1)=0.D0 

H ( 1 ) =ARAD 

MASS ( 1 ) =MC 

J=2-NMP 

RAD=R(J) 

HP=3 .DO*RAD 

NUM=1+N(J) 

DTH=2.D0*PI/DFLOAT(N(J) ) 

DENJ=DEN(J) 

DO  1=2, NUM 

X ( I ) =RAD*DCOS ( THETA) 

Y ( I ) =RAD*DSIN (THETA) 

H(I)=HP 

U ( I ) =DENJ  *  *GMONE / GMONE 

MASS(I)=MASSP 

THETA=THETA+DTH 
ENDDO 
DO  J=3-NMP,NRNG 

THETA=THETA+DTH*0 . 5D0 

DTH=2.D0*PI/DFLOAT(N(J) ) 

RAD=R(J) 

HP=3.D0*(RAD-R(J-1) ) 

DENJ=DEN(J) 

DO  1=1, N(J) 
NUM=NUM+1 

X (NUM) = RAD *DCOS (THETA) 
Y ( NUM ) =RAD * DS IN ( THETA ) 
MASS (NUM) =MASSP 
H(NUM)=HP 

U (NUM) =DENJ*  * GMONE /GMONE 
THETA=THETA+DTH 

ENDDO 
EITODO 
IF(NUM.NE.NTOT)  THEN 

WRITE(6,*)  'NUM.NE.NR' 

GOTO  99 
ENDIF 
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c 

C   FIND  MASS  WITHIN  ARAD 

C 

MASS1=0.D0 

IF(NMP.EQ.l)  MASS1=MASS(NMP) 
NUM=NMP 
DO  J=1,INRNG-1 
DO  1=1, N(J) 
NUM=NUM+1 

MASS1=MASS1+MASS (NUM) 
MASS (NUM)= 0.0 
ENDDO 
ENDDO 
NACP=NUM 
C 

C   SUM  OVER  ALL  PARTICLES  FOR  EACH  PARTICLE  TO  FIND  ACCELERATION 
C 

C      TEMPORARILY  SET  MASS ( 1 ) =MASS1 
C 


MASS(1)=MASS1 
DO  J=1,NT0T-1 
XO=X(J) 
YO=Y(J) 
ACCX=O.DO 
ACCY=O.DO 
DO  I=J+1,NT0T 

DX=X(I) -XO 

DY=Y(I) -YO 

RAD=DSQRT {DX**2+DY**2) 

RINV=1.D0/ (RAD+TINY) 

R3INV=RINV/ (RAD*RAD+TINY) 

RNIN=RAD*NINTERP/ (2 .DO*EPS) 

SMINDX=RNIN 

SMINDX=MIN(NINTERP, SMINDX) 

DRSM=MIN { 1 , RNIN- SMINDX) 

ACCSM= ( 1 . -DRSM) *ACSMOOT ( SMINDX) +DRSM*ACSMOOT { 1+SMINDX) 

R3 INV=ACCSM*R3 INV 

DACCX=R3INV*DX 

DACCY=R3INV*DY 

ACCX=ACCX+DACCX 

ACCY=ACCY+DACCY 

AGO (1,1) =ACC (1,1) -DACCX*MASS (J) 

ACC (1,2) =ACC (1,2) -DACCY*MASS (J) 
ENDDO 

ACC (J, 1)=ACC(J,1)+ACCX*MASSP 
ACC ( J , 2 ) =ACC ( J , 2 ) +ACCY*MASSP 
ENDDO 
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C    THE  FOLLOWING  IS  FOR  A  MASSLESS  DISK  WITH  NO  PRESSURE  SUPPORT. 
C 

C  NUM=NACP+NMP 

C  R(NRNG+1)=R(NRNG)+(R(NRNG) -R(NRNG-l) ) 

C  DO  J=INRNG,NKNG 

C  DR=(R(J+1)-R(J-1) ) *0.1D0 

C  DO  1=1, N(J) 

C  NUM=NUM+1 

C  CALL  GASDEV ( DX , DY , IDUM) 

C  X(NUM)=X(NUM)+DX*DR 

C  Y(NUM)=y(NUM)+DY*DR 

C  ENDDO 

C  ENDDO 

C  X0=X(1) 

C  Y0=Y(1) 

C  VX(1)=0.D0 

C  VY(1)=0.D0 

C  ALFP=0.07D0*ALFA*9.D0*DSQRT(GAMMA*ISS*MASSP) /5.D0 

C  DO  J=2,NT0T 

C  DX=X(J)-XO 

C  DY=Y(J)-YO 

C  RAD=DSQRT(DX**2+DY**2) 

C  VRDR=-ALFP* (l.DO-GAMMA*RAD/RS) /RAD**2 

C  VDIVR=DSQRT (MASS (1) /RAD) /RAD 

C  VX(J)=-Y(J) *VDIVR+X(J) *VRDR 

C  VY(J)=X(J)*VDIVR+Y{J) *VRDR 

C  ENDDO 

C 

C   RESET  MASSES 

C 

NUM=NMP 
DO  J=1,INRNG-1 
DO  1=1, N(J) 
NUM=NUM+1 
MASS(NUM)=MASSP 
ENDDO 
ENDDO 

MASS ( 1 ) =MC 
C 

C   CALCULATE  THE  VELOCITY  CURVE 
C 

NUM=NMP 

DO  J=1,NRNG 

V02(J)=0.D0 
DO  1=1, N(J) 
NUM=NUM+1 
V02 (J) =V02 (J) +ACC (NUM, 1) *X (NUM) +ACC (NUM, 2 ) *Y(NUM) 
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ENDDO 

V02(J)=-V02(J) /DFLOAT{N{J) ) 

IF(V02(J) .LT.O.DO)  THEN 

WRITE (6,*)  'V  SQUARED  <  0.  FOR  RING', J 

GOTO  99 
ENDIF 
ENDDO 

C 

C   FIND  THE  EPICYCLIC  FREQUENCY  AND  ISOTHERMAL  SOUND  SPEED 

C 

K2DMIN=1.D06 
DO  J=2,NRNG-1 

DV2DR=(V02(J+1)-V02(J-1) )/ (R(J+1)-R(J-1) ) 

KAPPA2 (J)=DV2DR/R(J)+2.D0*V02(J) /R(J) **2 

K2DMIN=MIN(K2DMIN,KAPPA2 (J) *DEN(J) ** (GAMMA-3 -DO) ) 
ENDDO 

RAD=(V02 (J) -V02 (J-2) ) / (R(J) -R(J-2) ) 

DV2DR=DV2DR+(R(NRNG)-R(J) ) * (DV2DR-RAD) / (R( J) -R ( J-1 ) ) 
KAPPA2 (NRNG)=DV2DR/R(NRNG)+2.D0*V02(NRNG) /R(NRNG)**2 
K2DMIN=MIN(K2DMIN,KAPPA2(J) /DEN (J) ** (3 .DO-GAMMA) ) 
WRITE (6, *)  'MIN(KAPPA^2*DEN" (GAMMA-3) )=' ,K2DMIN 
IF (QUERY. EQ. 'Y' )  THEN 

ISS=(QMIN*PI) **2/ (GAMMA*K2DMIN) 

WRITE (6,*)  'THE  ISOTHERMAL  SOUND  SPEED  IS  ' , ISS 

WRITE (40,*)  'ISS=',ISS 
ENDIF 

MINQ=1.D06 
DO  J=2,NRNG-1 

Q(J)=DSQRT(KAPPA2(J) *GAMMA*ISS) / (PI*DEN(J) **( (3 .-GAMMA) 12. ) 

MINQ=MIN ( MINQ , Q ( J ) ) 

WRITE (30, *)  Q(J) ,DSQRT(KAPPA2(J) ) ,R(J) 
ENDDO 

WRITE ( 6 , * )  ' MINIMUM  Q= ' , MINQ 

WRITE (40,*)  '  MINQ=',MINQ 

C 

C   FIND  THE  ROTATIONAL  VELOCITY 

C 

ALFP=0.1D0*ALFA*9.D0*DSQRT(GAMMA*ISS*MASSP) /5.D0 
DO  J=1,NRNG 

V2(J)=-GAMMA*ISS*DEN(J) **GMONE*R(J) /RS+V02 ( J) 
IF (V2 (J) .LT.O.DO)  THEN 

WRITE (6,*)  'V2  IS  LT  0.   V2=',V2(J),J 
GOTO  99 
ENDIF 
VR=-ALFP*(1.D0-GAMMA*R(J) /RS)/R(J) 
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WRITE(20, *)  R{J) ,DSQRT(V02 (J) ) ,DSQRT(V2 (J) ) , VR 
ENDDO 

C 

C   ADD  DENSITY  PERTURBATION. 

C 

NUM=NACP+NMP 

R(NRNG+1)=R(NRNG)+(R(NRNG)-R(NRNG-1) ) 
DO  J=INRNG,NRNG 

DR=(R(J+1) -R(J-l) ) *AMP 
DO  1=1, N(J) 
NXM=NUM+1 

CALL  GASDEV(DY,DX,IDUM) 
X(NUM)=X(NUM)+DX*DR 
Y(NUM)=Y(NUM)+DY*DR 
ENDDO 
ENDDO 
C 
C   ASSIGN  VELOCITIES  TO  PARTICLES 

C 

NUM=NMP 

DO  J=1,INRNG-1 

VDIVR=DSQRT(V2(J) )/R(J) 

VRDR=-ALFP* (l.DO-GAMMA*R(J) /RS) /R(J) **2 
DO  1=1, N(J) 
NUM=NUM+1 

VX (NUM) =-Y (NUM) *VDIVR+X (NUM) *VRDR 
VY (NUM) =X (NUM) *VDIVR+Y (NUM) *VRDR 
ENDDO 
ENDDO 

DR1=R(INRNG) -R(INRNG-l) 
VT2=DSQRT(V2 (INRNG) ) 
VT1=DSQRT(V2(INRNG-1) ) 
R2=R( INRNG) 
R1=R( INRNG- 1) 
DO  J=  INRNG, NRNG-1 
VT0=VT1 
VT1=VT2 

VT2=DSQRT(V2 (J+1) ) 
R0=R1 
R1=R2 
R2=R(J+1) 
DR0=DR1 
DR1=R2-R1 
DR2=DR0+DR1 
DO  1=1, N(J) 
NUM=NUM+1 
RAD=DSQRT(X{NUM) **2+Y(NUM) **2) 
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VRDR=-ALFP* (l.DO-GAMMA*RAD/RS) /RAD**2 
DXO=RAD-RO 
DX1=RAD-R1 
DX2=RAD-R2 

VT=DX1*DX2*VT0/ (DR0*DR2 ) -DX0*DX2 *VT1/ (DR0*DR1)+ 
i  DX0*DX1*VT2/ {DR2*DR1) 

VX(NUM) =-Y(NUM) *VT/RAD+X (NUM) *VRDR 
VY (NUM) =X (NUM) *VT/RAD+Y (NUM) *VRDR 
ENDDO 
ENDDO 
J=NRNG 
DO  1=1, N(J) 
NUM=NUM+1 

RAD=DSQRT(X(NUM) **2+Y(NUM) **2) 
VRDR=-ALFP* (l.DO-GAMMA*RAD/RS) /RAD**2 
DXO=RAD-RO 
DX1=RAD-R1 
DX2=RAD-R2 

VT=DX1*DX2*VT0/ (DR0*DR2 ) -DX0*DX2*VT1/ (DR0*DR1)+ 
i       DX0*DX1*VT2/ (DR2*DR1) 

VX(NUM)=-Y(NUM) *VT/RAD+X (NUM) *VRDR 
VY (NUM) =X (NUM) *VT/RAD+Y (NUM) *VRDR 
ENDDO 


c 

C   OUTPUT  DISK 

ry 

25 

WRITE (10, *) 

NTOT,2,0.D0,NTOT,l,0.D0 

WRITE (10, *) 

X(l) ,Y(1) 

WRITE (10, *) 

.ODO,O.DO 

WRITE (10,*) 

MC,0.D0,H(1) 

DO  I=2,NT0T 

WRITE (10, 

,*)  X(I) ,Y(I) 

WRITE (10, 

,*)  VX(I) ,VY(I) 

WRITE (10, 

,*)  MASSP,ISS*U(I) ,H(I) 

ENDDO 

99 

STOP 
END 

p******************************************************************** 

c 

SUBROUTINE  FINDR (N,R, ERROR) 
C 

C     Subroutine  to  find  the  radius  R  within  which  N  particles  reside. 
C     in  an  exponential  disk  with  scale  length  RS,  radius  RD,  and  NTOT 
C     total  particles  in  an  exponential  disk. 
C 
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IMPLICIT  NONE 

INTEGER  N , FLAG , NTOT , ERROR 

DOUBLE  PRECISION  R, ROLD, F, DF, PI , NO , RD, RS , PI 

COMMON/DISK/   RD, RS, NO , PI , NTOT 

ROLD=2.D0*RD 

FLAG=0 

DOWHILE ( DABS ( R-ROLD)  . GT . 1 . D- 0  8 . AND . FLAG . LT . 2  0 ) 

FLAG=FLAG+1 

F=2.D0*PI*N0*RS*RS* (1 . DO-DEXP ( -R/RS) *{R/RS+1.D0) ) -N 

DF=2.D0*PI*N0*R*DEXP(-R/RS) 

ROLD=R 

R=ROLD-F/DF 
ENDDO 
IF(FLAG.GE.20)  ERR0R=1 

RETURN 
END 

0============================================================ 

C 

C      THIS  HAS  THE  DEFINED  FUNCTIONS  NEEDED  TO  GENERATE  A 

C      GAUSSIAN  DEVIATE,  USING  THE  SUBROUTINE  GASDEV. 

C 

c============================================================ 


************************************************************************* 

c 

FUNCTION  RAN3 ( IDUM) 
C 
c 

C 

C  Returns  a  uniform  random  deviate  between  0.0  and  1.0.   Set  IDUM 

C  to  any  negative  value  to  initialize  or  reinitialize  the  sequence. 

C  If  running  on  machine  that  is  weak  on  integer  arithmatic,  then  use 

C  commented  lines .   Any  other  large  value  of  MBIG  and  MSEED  will 

C  work.   This  routine  is  originally  from  Knuth,  but  the  current 

C  version  is  from  Numerical  Recipes  by  Press  et  al . 

C 

c======================================================================== 


IMPLICIT  NONE 

DOUBLE  PRECISION   FAC,RAN3 

INTEGER   MBIG , MSEED, IFF , IDUM, MJ, MA ( 55 ) , MK, II , MZ , K, I , 
&    INEXT , INEXTP 

PARAMETER  (MBIG=1000000000 , MSEED=161803398 , MZ=0 , FAC=1 . /MBIG) 
C       IMPLICIT  DOUBLE  PRECISION  (M) 
C       PARAMETER  (MBIG=4000000 . , MSEED=1618033 . , MZ=0 . , FAC=1 . /MBIG) 

DATA  IFF/0/ 
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IF ( IDUM . LT . 0 . OR . IFF . EQ . 0 ) THEN 

IFF=1 

MJ=MSEED-IABS(IDUM) 

MJ=MOD(MJ,MBIG) 

MA{55)=MJ 

MK=1 

DO  1=1,64 

II=MOD(21*I,55) 

MA(II)=MK 

MK=MJ-MK 

IF(MK.LT.MZ)  MK=MK+MBIG 

MJ=MA(II) 

ENDDO 

DO  K=l,4 

DO  1=1,55 

MA(I)=MA(I)-MA(1+MOD(I+3  0,5  5) ) 

IF(MA(I) .LT.MZ)  MA(I)=MA(I)+MBIG 

ENDDO     ,    •  ;    - 

ENDDO       .'  ■ 

INEXT=0 

INEXTP=31 

IDUM=1 

ENDIF 

INEXT=INEXT+1 

IF{INEXT.EQ.56)  INEXT=1 

INEXTP=INEXTP+1 

IF(INEXTP.EQ.56)  INEXTP=1 

MJ=MA ( INEXT ) -MA ( INEXTP ) 

IF (MJ. LT.MZ)  MJ=MJ+MBIG 

MA { INEXT) =MJ 

RAN3=MJ*FAC 

RETURN 

END 
************************************************************************* 

C 

SUBROUTINE  GASDEV(VR, VT, IRAN) 
C 
C 

c 

C   This  subroutine  generates  velocity  deviates  for  a  particle  with  a 
C   normal  distribution  and  unit  variance. 
C 
0=================================================================== 

IMPLICIT  NONE 

INTEGER  IRAN 

DOUBLE  PRECISION  VI , V2 , R, FAC, VR, VT, RAN3 

R=l. 
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DOWHILE(R.GE.l. ) 

Vl=2 . *RAN3 (IRAN) -1. 
V2=2.*RAN3 (IRAN)-l. 
R=V1*V1  +  V2*V2 

ENDDO 

FAC  =  DSQRT(-2. *DLOG(R) /R) 

VR=V1*FAC 

VT=V2*FAC 

RETURN 
END 
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